perl 遍历目录及子目录下的所有文件
作者:
正踪大米饭儿 | 来源:发表于
2018-01-21 23:28 被阅读127次#!/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 遍历目录及子目录下的所有文件
本文链接:https://www.haomeiwen.com/subject/mjhcaxtx.html
网友评论