perl 取出目录中的所有文件
通过perl 我们可把一个目录下的所有文件打印出来：#!/usr/bin/perl -wT
use File::Copy;
use strict;
print "取文件,请输入文件路径:";
chomp(my $path = );
opendir DIR, $path;
my @dir = readdir DIR;
closedir DIR;
foreach my $file (@dir){
print "$file\n";
}
页:
[1]