perl - 私がファイルを所有していて、全員の読み取り権限があるにもかかわらず、「そのようなファイルやディレクトリはありません」

Question

CentOS に perl スクリプトがあり、File::Slurp を使用してファイルを読み込もうとしています:

my $local_filelist = '~/filelist.log';
use File::Slurp;
my @files = read_file($local_filelist);

しかし、次のエラーが表示されます。

Carp::croak('read_file \'~/filelist.log\' - sysopen: No such file or directory') called at /usr/local/share/perl5/File/Slurp.pm line 802

これは、スクリプトを myuser として実行しているにもかかわらず、次のようになります。

(2013-07-26 06:55:16 [myuser@mybox ~]$ ls -l ~/filelist.log
-rw-r--r--. 1 myuser myuser 63629044 Jul 24 22:18 /home/myuser/filelist.log

これは、CentOS 6.4 上の perl 5.10.1 x86_64 にあります。

何が原因でしょうか?

Answer 1

glob関数を使用するだけです。それがそのためです。

my $local_filelist = glob '~/filelist.log';