perl进行目录的查看
可用如下的PERL程序进行目录的浏览执行如：
perl getdir.py D:\\设计模式Delphi版
#getdir.py
sub listfile{
my $dir = shift @_;
opendir DH, $dir;
foreach my $file (readdir DH){
next if $file eq "." or $file eq "..";
$file = "$dir/$file";
if(-d $file){
&listfile($file);
}
else{
print $file . "\n";
}
}
return 1;
}
if(@ARGV!=1){
print STDERR " program information \n";
print STDERR " program usage \n";
exit;
}
while(@ARGV){
$dir = shift;
&listfile($dir);
}
页:
[1]