免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3137 | 回复: 3

关于perl遍历目录的问题 [复制链接]

论坛徽章:
0
发表于 2013-12-18 16:28 |显示全部楼层
看小骆驼书到十三章了,看到关于文件和目录的处理,想写一个小程序列出指定目录下的所有文件、子目录和子目录下的文件。具体情况如下:
在E:\a目录下面有以下文件或目录
a1.txt
c
d
e
e\b1.txt

我写的程序:
&ShowAllFile('E:\a');
sub ShowAllFile
{
  chdir $_[0] or die "cannot chdir $_[0]!"; #把当前目录设为实参所指的目录
  my @all_files=glob '*';                     #把当前目录的文件和子目录传入数组
  foreach $file(@all_files)               
    {if(-d $file)                             
        {print "directory_[0]\\$file\n";    #如果是文件夹则带前缀输出文件夹名   
         &ShowAllFile("$_[0]\\$file";}        #并递归调用此函数
     else
        {print "$_[0]\\$file\n"}              #如果不是文件夹(即文件)则输出文件名
    }
}
system("pause";

期望得到的结果应该为:
E:\a\a1.txt
directory:E:\a\c
directory:E:\a\d
directory:E:\a\e
E:\a\e\b1.txt

但实际得到的结果却是:
E:\a\a1.txt
directory:E:\a\c
E:\a\d                      #把目录当作文件        
E:\a\e                      #把目录当作文件,目录下的子文件b1.txt也没测出来。


论坛徽章:
0
发表于 2013-12-18 16:32 |显示全部楼层
上传程序文件.

论坛徽章:
0
发表于 2013-12-18 16:32 |显示全部楼层
findfile.rar (440 Bytes, 下载次数: 1)

findfile.rar

440 Bytes, 下载次数: 0

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2013-12-19 01:18 |显示全部楼层
  1. &ShowAllFile('/tmp');

  2. sub ShowAllFile {
  3.     my $dir       = shift;
  4.     my @all_files = glob "$dir/*";
  5.     foreach my $file (@all_files) {
  6.         if ( -d $file ) {
  7.             print "directory\t$file\n";
  8.             &ShowAllFile($file);
  9.         }
  10.         else {
  11.             print "$file\n";
  12.         }
  13.     }
  14. }
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP