人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Perlでディレクトリの絶対パスを取得する方法は?

#!/usr/local/bin/perl -w
use Cwd 'realpath';
print Cwd::realpath( '~/' ), "\n";
# => Use of uninitialized value in print at install.pl
# Cwd::realpath( $file_NOT_DIR );


●質問者: radio3
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:AT Perl print ディレクトリ 絶対パス
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● zalop
●0ポイント

http://xn--4rwo91h.jp/translation/perldoc/lib/Cwd.html

◎質問者からの返答

ディレクトリではだめですね。

use File::chdir;

$CWD = '~/'; # => Failed

ホームディレクトリ ~/ の絶対パスを取得する方法

ありませんでしょうか?


2 ● khoshi3
●100ポイント ベストアンサー

~ は perlを実行したユーザのホームということでよろしいですか? であれば、ちょっとダサイけど、以下のようなのはいかがでしょうか? :

(最終行がなくともシンボリックリンクを辿らないPATHはgetできます)

#!/usr/bin/perl -w

use Cwd 'realpath';

my $process_real_uid = $<;

my $homedir = (getpwuid($process_real_uid))[7];

print Cwd::realpath($homedir), "\n";

◎質問者からの返答

素晴らしい!!

成功しました。

お見事でした。m(_ _)m

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ