小弟刚接触perl,不太熟,麻烦帮忙看下这段代码

kaixin9ok

.现在在看小骆驼

我的目的是想遍历一下/etc的文件,判断如果是目录的话,继续往下遍历,这么写只遍历了第一个目录,然后就不往下执行了.
麻烦指导一下,谢谢

#!/usr/bin/perl
use warnings;
use strict;
my $file;
chdir "/etc" or die "cannot chdir to /etc: $!";;
#open FILE,">>/tmp/test.txt" or die "file not exists $!";
my $dir = "/etc";
        opendir DH,$dir or die "Open dir error Directory";
         while ($file = (readdir DH)){
             next if $file =~ m/^\.(\.)?/;
                if( -d $file){
                &readdir_read($file);
                }
                }


sub readdir_read{
        if( -d $_[0]){
                opendir  DH,$_[0] or die "open dir error Director $!";
                while (my $file = readdir DH){
                next if $file =~ m/^\.(\.)?/;
                print $file ."\n";
                }
        }

}

只是一个红薯

使用File::Find吧

只是一个红薯

1. $File::Find::dir  = /some/path/
   
2.     $_                = foo.ext
   
3.     $File::Find::name = /some/path/foo.ext

复制代码

kaixin9ok

回复 3# 只是一个红薯



嗯 多谢你的指导


- -我想试下自己写
能帮我看下我写的这个错误点在哪吗?

kaixin9ok

回复 3# 只是一个红薯


         就是想知道,遍历目录的整个过程

呵呵

首天

将代码中的DH改成my $dh即可

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. my $file;
   
5. chdir "/etc" or die "cannot chdir to /etc: $!";;
   
6. #open FILE,">>/tmp/test.txt" or die "file not exists $!";
   
7. my $dir = "/etc";
   
8. opendir my $dh,$dir or die "Open dir error Directory";
   
9. while ($file = (readdir $dh)){
   
10.     next if $file =~ m/^\.(\.)?/;
    
11.     if( -d $file){
    
12.         &readdir_read($file);
    
13.     }
    
14. }
    
15. 
    
16. sub readdir_read{
    
17.     if( -d $_[0]){
    
18.         opendir  my $dh,$_[0] or die "open dir error Director $!";
    
19.         while (my $file = readdir $dh){
    
20.             next if $file =~ m/^\.(\.)?/;
    
21.             print $file ."\n";
    
22.         }
    
23.     }
    
24. }

复制代码

kaixin9ok

回复 6# 首天


    原理何在啊?
为啥用DH就不可以啊？

xi0ws

1. 这个遍历方法有错吧
2. readdir得到的仅仅是文件/文件夹的名字(不包含路径)，所以&readdir_read要传递全路径

1. &readdir_read("$dir\\$file")

复制代码

wsxedcer

回复 7# kaixin9ok


    代码只能进入第二层吧

xi0ws

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $dir = "/etc";
   
6. readdir_read($dir);
   
7. 
   
8. sub readdir_read
   
9. {
   
10.     return unless -e $_[0];
    
11.     opendir my $dh, $_[0] or die "open dir error Director $!";
    
12.     while (my $file = readdir $dh){
    
13.         next if -f "$_[0]\\$file" || $file =~ m/^\.(\.)?/;
    
14.         print $file."\n";
    
15.         readdir_read("$_[0]\\$file");
    
16.     }
    
17.     closedir $dh;
    
18. }

复制代码