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

kk861123

回复 7# kaixin9ok


    DH是全局变量，递归下来的新打开的DH会覆盖掉上一个的DH，所以结果就乱了，使用my $dh为私有变量，会限定在一定的block中，不知道解释清楚了没。
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 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. }

复制代码

_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  区别！

Perl 的关键字里已经定义了DH的用途！