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

}