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

kk861123

回復(fù) 7# kaixin9ok


    DH是全局變量，遞歸下來的新打開的DH會覆蓋掉上一個的DH，所以結(jié)果就亂了，使用my $dh為私有變量，會限定在一定的block中，不知道解釋清楚了沒。
DH可以實現(xiàn)，請試試~

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 DH,$dir or die "Open dir error Directory";
   
9. while ($file = (readdir DH)){
   
10.     next if $file =~ m/^\.(\.)?/;
    
11.     if( -d $file){
    
12.         local *DH;    # 使用local將DH本地化
    
13.         &readdir_read($file);
    
14.     }
    
15. }
    
16. 
    
17. sub readdir_read{
    
18.     if( -d $_[0]){
    
19.         opendir  DH,$_[0] or die "open dir error Director $!";
    
20.         while (my $file = readdir DH){
    
21.             next if $file =~ m/^\.(\.)?/;
    
22.             print $file ."\n";
    
23.         }
    
24.     }
    
25. }

復(fù)制代碼

_defendre

我是高手！
第一條就有安全問題！
Perl <PEARL>5.0002～5.0003
使用#!/usr/bin/env perl -w
Perl <<PEARL>>5.6000～5.1600
使用#!env perl -w

p.s:SUIX00000.000.1

_defendre

回答： DH   和   dh  區(qū)別！

Perl 的關(guān)鍵字里已經(jīng)定義了DH的用途！