1、glob 方式显示文件
迭代方式 输出目录及其子目录中的所有文件
迭代函数
sub print_file{
foreach my $file_or_dir(glob($_[0]))
{
if(-d $file_or_dir)
{
print_file ("$file_or_dir/*"); #自调用迭代函数
}else{
print $file_or_dir."\n";
}
}
}
#第一层目录的循环
foreach my $file_or_dir(glob("f:/perl/*"))
{
if(-d $file_or_dir)
{
print_file ("$file_or_dir/*"); #调用迭代函数
# print "$file_or_dir/*\n";
}else{
print $file_or_dir."\n";
}
}
2、opendir readdir 方式迭代显示文件
$dir = "f:/perl";
$file_num = 0; #计数器 计算文件总数
opendir (DIR ,$dir) or die("error message");
sub print_file{
opendir (TEST,$_[0]);
foreach my $file_or_dir(grep(/^[^\.\.?]/,readdir(TEST))) #正则表达式删除 .. 和.
{
if(-d "$_[0]/$file_or_dir")
{
print "当前目录为：$_[0]/$file_or_dir/*\n";
print_file ("$_[0]/$file_or_dir"); #自调用迭代函数
}else{
print "$_[0]/$file_or_dir\n";
$file_num++;
}
}
}
#第一层目录的循环
foreach my $file_or_dir(grep(/^[^\.\.?]/,readdir(DIR))) #正则表达式删除 .. 和.
{
if(-d "$dir/$file_or_dir")
{
print "当前目录为：$dir/$file_or_dir/*\n";
print_file ("$dir/$file_or_dir"); #调用迭代函数
}else{
print "$dir/$file_or_dir\n";
$file_num++;
}
}
print "该文件下文件总数：$file_num";
阅读(3095) | 评论(0) | 转发(0) |
