perl – 比较2个目录中文件的修改日期

所以我为自己想出了一个帮助学习Perl的小项目,这是我可以实际使用的东西.我们的想法是比较2个目录中的文件修改日期列表. 1来自FTP,我本地有1个,如果它们更新则从本地上传(这部分可以在以后处理).我已经创建了单独的脚本(我计划将它们组合在一起,只是修补一下),一个用于从FTP读取目录并抓取文件.另一个比较2个目录中的文件列表(文件列表位于数组中),这是问题所在.我可以让它来比较两个目录.我似乎无法锻炼如何比较同名文件.如果只有一个目录中存在文件,它会将该文件与同一阵列位置的另一个文件进行比较.

使用if语句可以很容易地处理这个问题(我说很容易,但我不确定),但是无法理解哪些参数会这样做.

到目前为止我所拥有的：

opendir(IMD,"/TRAINING/Perl") || die("Cannot open directory"); 
        @thefiles= readdir(IMD); 
        opendir(IMD2,"/TRAINING/Perl2") || die("Cannot open directory"); 
        @thefiles2= readdir(IMD2)

    foreach my $file (@thefiles) {
     #  if ($file != @thefiles2[$counter]){
        if (compare($file,@thefiles2[$counter]) == 0){
            print $file," Matches ";
            print @thefiles2[$counter],"n";   
            $counter++;
        }

     #  elsif ($file == @thefiles2[$counter]){  
        elsif (compare($file,@thefiles2[$counter]) != 0){
            print $file," ";
            print "Does not match";
            print @thefiles2[$counter],"n";
            $counter++; 
        }
    }

目前我只是比较同一阵列位置的文件名,直到我能正常工作,然后将其更改为使用日期.已经使用-M但它正在做它现在正在做的事情.我意识到这远远不是我需要的东西,而且确实需要任何指针,特别是因为我的编程一般都是非常无声的.

基本上我想要它做什么,

If ($file1 !exists in $dir2){
    Print "not exists"
}
If ($file1 exists in $dir2){
    Compare its date with $file2 in $dir2 and print newer/older
}

如果我现在可以使用它,那么我可以慢慢地将它修改为我想要它做的事情.

感谢您提供给我的任何帮助.