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

}