perl 取出目录中的全部文件

 经过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";

}