perl新手遇到读取文件问题

jtldragon

想要通过命令行参数传一个目录
然后把每个文件名和mtime信息存入哈希表里
可是mtime总是读不到
下面是程序：
#!/usr/bin/perl -w
use strict;
#use warnings;
my $directory ;
my $num=@ARGV;
if ($num ==0) {die "please input the directory through the command line !\n";
}
else { $directory = shift(@ARGV);}
if (!-e $directory) {
        print "the directory is not exist !\n";
        exit;
}

print "-------start monitoring $directory -----(press ctrl+c to halt)--------\n";

my %file;             #储存所有(文件名，mtime）
my $size;

#while(1){
       
        &getstat();
       
       

sub getstat{
        opendir DIR,$directory or die "cannot open the directory!\n";

        my %file=();
        my @files= readdir DIR;
        print "@files\n";
        foreach my $i (@files) {
                my @stat= stat $i;
                print "@stat\n";
                my $mtime= $stat[9];
                print $mtime;
                $size= $stat[7];
                $file{$i}= $stat[9];
        }
       
        #return %file;
        foreach my $key (sort keys %file){
        my $value = $file{$key};
        print "$key => $value\n";}

}

#}

为什么只能读到. 和..的stat信息
其余的文件都为空？？

jacuro

我猜想，如果你是

1. opendir DIR,"/tmp"

复制代码

假设/tmp下面有文件file1
你readdir DIR返回的是file1
然后是

1. stat "file1"

复制代码

可是当前目录下并没有file1，它在/tmp下面。于是上面的代码当然得不到信息了。

readdir返回的是那个目录下的文件名，你需要把它和目录名拼起来得到完整的路径，或者stat之前chdir过去

jtldragon

恩！已经解决了
确实是你说的那样 要带上路径
谢谢啦

iMouse

如果你要监视目录的变化，建议用用 pyinotify