通过perl 我们可把一个目录下的所有文件打印出来:
#!/usr/bin/perl -wT
use File::Copy;
use strict;
print "取文件,请输入文件路径:";
chomp(my $path = <STDIN>);
opendir DIR, $path;
my @dir = readdir DIR;
closedir DIR;
foreach my $file (@dir){
print "$file\n";
}
转载于:https://blog.51cto.com/huangyu/551262