Linux伊甸园论坛 » PHP,PERL,Python » File::Find如何使用

blackspace 发表于 2004-12-8 10:11

File::Find如何使用

[CODE]use File::Find;

@find_dir=['f:\\'];


foreach(1..100) {
        find(\&wanted, @find_dir)||die("find failure\n");       
}

sub wanted {
                print $_;
}[/CODE]
[CODE]
>perl -w fin&&copy.pl
Can't stat ARRAY(0x2753f8): No such file or directory
at fin&&copy.pl line 7
find failure
>Exit code: 255[/CODE]

dearvoid 发表于 2004-12-8 22:35

[code]use File::Find;

sub wanted {
    print $_, "\n";
}

my @dirs = "c:\\";

find \&wanted, @dirs;[/code]

blackspace 发表于 2004-12-9 08:29

[QUOTE]my @dirs = "c:\\";[/QUOTE]

@不是数组吗，为什么加上[] 就不能用了。

dearvoid 发表于 2004-12-9 09:08

[code]use File::Find;

sub wanted {
    print $_, "\n";
}

my $ref_dirs = [ "c:\\", "d:\\" ];

find \&wanted, @$ref_dirs;[/code]

dearvoid 发表于 2004-12-9 09:19

[ ... ] 创建一个 array 的 reference，{ ... } 创建一个 hash 的 reference

blackspace 发表于 2004-12-9 17:16

[CODE]use File::Find;

@find_dir=('f:\\LAB');

print @find_dir."\n";

find(\&wanted, @find_dir)||die("find failure! Because $! \n");       


sub wanted {
                print $_."\n";
}[/CODE]

这样就对了。

blackspace 发表于 2004-12-9 17:34

就是结果不对：

[code]>perl -w fin&&copy.pl
[color=blue]find failure! Because Bad file descriptor
1[/color]
.
lab_Data.MDF
lab_Data_2_Data.NDF
lab_Log.LDF
>Exit code: 9
[/code]

dearvoid 发表于 2004-12-9 18:16

remove the die statement

blackspace 发表于 2004-12-10 08:37

就是不清楚为什么perl文档写的这么不清楚，还是我太笨。

查看完整版本: File::Find如何使用