目的:遍历目录。
原文:
[url]http://faq.perl.org/perlfaq5.html#How_do_I_traverse_a_[/url]
更多:
[url]http://perldoc.perl.org/File/Find.html[/url]
#!/usr/bin/perl
use warnings;
use File::Find;
@directories = (".", "path2traverse");
# 递归遍历指定目录(@directories),并在回调函数(wanted)中处理。
find(\&wanted, @directories);
sub wanted{
# $File::Find::dir is the current directory name,
# $_ is the current filename within that directory
# $File::Find::name is the complete pathname to the file.
print "full path is $File::Find::name, filename is $_\n";
}
原文:
[url]http://faq.perl.org/perlfaq5.html#How_do_I_traverse_a_[/url]
更多:
[url]http://perldoc.perl.org/File/Find.html[/url]