perl 文件遍历
时间：2011-01-05 来源：heut2009
#!/usr/bin/perl
use strict;
my $dir = $ARGV[0];
&fun ($dir);
sub fun () { my $current = shift; opendir DIR, $current or die "can not open dir"; my @ list = readdir DIR; foreach my $item (@list) { if (-f $current."/".$item) { print $item." is a file\n"; } else { if (-d $current."/".$item && $item ! ~/^[\.]{1, 2}/) { print $item." is a directory\n"; &fun ($current."/".$item); }
} } }
&fun ($dir);
sub fun () { my $current = shift; opendir DIR, $current or die "can not open dir"; my @ list = readdir DIR; foreach my $item (@list) { if (-f $current."/".$item) { print $item." is a file\n"; } else { if (-d $current."/".$item && $item ! ~/^[\.]{1, 2}/) { print $item." is a directory\n"; &fun ($current."/".$item); }
} } }
相关阅读 更多 +
排行榜 更多 +
