Perl 比较2个目录中文件的修改日期_Perl

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

perl

Perl 比较2个目录中文件的修改日期,perl,Perl,所以我为自己设计了一个小项目来帮助学习Perl，这是我可以实际使用的东西。其思想是比较两个目录中的文件修改日期列表。1个来自FTP，1个来自my local，如果更新，则从local上传（此部分可稍后处理）。我已经创建了单独的脚本（我计划将它们结合起来，目前只是修补一下），一个用于从FTP读取目录并获取文件的脚本。另一个比较两个目录中的文件列表（文件列表位于一个数组中），这就是问题所在。我可以让它比较两个目录。我似乎不知道如何让它比较同名的文件。如果有文件只存在于其中一个目录中，它会将该文件与相

所以我为自己设计了一个小项目来帮助学习Perl，这是我可以实际使用的东西。其思想是比较两个目录中的文件修改日期列表。1个来自FTP，1个来自my local，如果更新，则从local上传（此部分可稍后处理）。我已经创建了单独的脚本（我计划将它们结合起来，目前只是修补一下），一个用于从FTP读取目录并获取文件的脚本。另一个比较两个目录中的文件列表（文件列表位于一个数组中），这就是问题所在。我可以让它比较两个目录。我似乎不知道如何让它比较同名的文件。如果有文件只存在于其中一个目录中，它会将该文件与相同数组位置的另一个文件进行比较

使用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
}

如果我现在可以让它工作，那么我可以慢慢地修改它，使之符合我的要求

谢谢你们能给我的任何帮助

首先，您不能依赖于readdir返回有序列表的假设。所以，仅仅使用索引进行比较是错误的，即使您不能依赖排序，因为可能存在其他目录中不存在的文件。此外，您的代码不能使用子目录。您可以使用的选项：

使用Perl模块，例如。这允许使用子目录，您可以创建包含文件路径及其修改时间的哈希，该路径由stat
使用unix实用程序，如BSD