小弟剛接觸perl,不太熟,麻煩幫忙看下這段代碼

kaixin9ok

.現(xiàn)在在看小駱駝

我的目的是想遍歷一下/etc的文件,判斷如果是目錄的話,繼續(xù)往下遍歷,這么寫(xiě)只遍歷了第一個(gè)目錄,然后就不往下執(zhí)行了.
麻煩指導(dǎo)一下,謝謝

#!/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";
                }
        }

}

只是一個(gè)紅薯

使用File::Find吧

只是一個(gè)紅薯

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

復(fù)制代碼

kaixin9ok

回復(fù) 3# 只是一個(gè)紅薯



嗯 多謝你的指導(dǎo)


- -我想試下自己寫(xiě)
能幫我看下我寫(xiě)的這個(gè)錯(cuò)誤點(diǎn)在哪嗎?

kaixin9ok

回復(fù) 3# 只是一個(gè)紅薯


         就是想知道,遍歷目錄的整個(gè)過(guò)程

呵呵

首天

將代碼中的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. }

復(fù)制代碼

kaixin9ok

回復(fù) 6# 首天


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

xi0ws

1. 這個(gè)遍歷方法有錯(cuò)吧
2. readdir得到的僅僅是文件/文件夾的名字(不包含路徑)，所以&readdir_read要傳遞全路徑

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

復(fù)制代碼

wsxedcer

回復(fù) 7# kaixin9ok


    代碼只能進(jìn)入第二層吧

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. }

復(fù)制代碼