#!/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 );
No.2
71
12
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";
No.1
1755
ディレクトリではだめですね。
use File::chdir;
$CWD = '~/'; # => Failed
ホームディレクトリ ~/ の絶対パスを取得する方法
ありませんでしょうか？
No.2
7112
ここでベストアンサー
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";
素晴らしい!!
成功しました。
お見事でした。m(_ _)m
khoshi3
2008/02/02 17:54:24
1
1
1
1
1
32
32
素晴らしい!!
成功しました。
お見事でした。m(_ _)m