Question

我的脚本应该以递归方式检查所有包含的目录和文件的当前目录。然后应该输出每个文件并修改最后一个日期。

它似乎适用于当前的某些目录，但不适用于其他目录。我得到了偏差的结果，不知道我的逻辑失败了。

#!/usr/bin/perl -w
use Cwd;
use Time::Piece;

my $startdir = &cwd;
my @files;

sub treeExamine() {


    my $workdir = shift;
    chdir($workdir) or die "Can't change directory\n";
    opendir(DIR,".") or die "Can't open directory\n";
    my @names = readdir(DIR) or die "Can't read directory\n";
    closedir(DIR);

    foreach my $name(@names) {

        next if($name eq ".");
        next if($name eq "..");
        if(-f $name) {
            my $dmod = (stat $name)[9];
            my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($dmod);

            $day = substr('0'.$mday,-2);
            $month = substr('0'.($mon+1),-2);
            $year = substr($year+1900,-2);

            push (@files, "$name\t Modified on : $day/$month/$year\n");
        }
        else {
            print "not file $name\n";
        }
        if(-d $name) {
            &treeExamine($name);
            next;
        }

        chdir($startdir) or die "Unable to change to directory $startdir \n";
    }

}

&treeExamine(".");
print @files;

Answer 1

要递归遍历目录树，您应该使用File::Find。它是Perl 5中的核心模块。此外，您可以使用Time::Piece来跳过尴尬的日期操作。

use strict;
use warnings;
use Time::Piece;
use File::Find;

find(\&wanted, ".");

sub wanted {
    return if -d;
    my $dmod = (stat $_)[9];
    my $t = localtime($dmod);
    print "$File::Find::name\t Modified on : ", $t->dmy("/"), "\n"; 
}

此代码将（我假设）执行您希望代码执行的操作，即扫描当前目录"."中的目录并打印所有文件的修改日期。预定义的函数dmy不可用于2位数年份，但是，如果您不需要，为什么会创建Y2K错误？想象一下约会11th Nov 2011。

另外，正如我在评论中提到的，你不应该使用prototypes。它们是可选的，其目的是为子例程提供额外的功能，以便模拟内置命令的某些行为（例如map和grep采用代码括号而不使用{{ 1}}关键字，或sub，pop等。在没有扩展到其元素的情况下获取数组）。你的子声明应该是

shift

没有别的。

Perl - 递归检查目录树

1 个答案: