客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
opendir (DIR, $dir) or die "can't open the directory!";
my @dir = readdir DIR;
foreach my $file (@dir) {
}
对二级目录进行遍历，操作二级目录里的文件 my $rawpath=$ARGV[0]; opendir (DIR,$rawpath) or die "can't open!"; my @file = readdir DIR; foreach my $file (@file){ my $newdir = $rawpath."/".$file; opendir(DIR2,$newdir) or die "can't open $newdir!"; my @file2 = readdir DIR2; foreach my $file2 (@file2){ } }
|
请发表评论