#!/usr/bin/perl -w
use File::Basename;
use Data::Dumper;
use File::Find;
my $dir = $ARGV[0] ||= "/" || die $!;
my @files = get_all_files($dir);
sub get_all_files {
my ($dir) = @_;
my @Files;
# Use $File::Find::name instead of $_ to get the paths.
find(sub { push @Files, $_ }, $dir);
return @Files
}
sub work{
# deal with your file
print "good luck!\n";
}
__END__
perl 遍历目录及子目录下的所有文件
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- （一） 得益于各种内容平台的崛起，我从几年前便开始定期地将生活、商业、个人所思所想记录于在网络。 一来是我希望锻炼...
- 一个微信网友跟我说，她特别想要安静的环境来写作，但是没有条件。公公婆婆和他们住在一个不到六十平的房子里。公婆不思进...
