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 );
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
khoshi3
満足100pt
~ は 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";
-
radio3
-
radio3その他の回答
-
zalop
0pt
-
radio3
-
この質問へのコメント
質問の情報
- 登録日時
- 2008-01-30 18:17:48
- 終了日時
- 2008-01-30 20:16:13
- 回答条件
- 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
経団連が夫婦別姓（選択的）を提言しました。政府は、配偶者控除の廃止を志向しているようです。結婚制度を…
匿名質問者
3
2
-
オススメのシェイバー教えてください！ 以下の条件に近いシェイバーはあるのでしょうか。 1.髭が濃いため深…
Ryoya391
1
-
０５７０ で始まる電話番号は、キャリアなどとの間でカケ放題などの契約をしていても、そのサービスは受け…匿名質問者1
-
友人の解答と自身の解答で異なります。教えて頂けないでしょうか。 C社株式は，３年後に平均で1,000円にな…匿名質問者3
-
僕の親は苛立っています。 「俺はネットの天才なのに、なんで通報されたり、アカウント凍結されたりするん…匿名質問者34
CGIなどでApacheから呼び出される等で環境変数が期待できない場合を除き、以下のコードでも良いと思います。:
my $homedir = $ENV{'HOME'};