File::Find 模块的循环调用 问题

shaunsyb

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. use File::Find;
   
5. 
   
6. my $profile="~/.bash_profile";
   
7. 
   
8. open(NEWENV, ". $profile && env|") or die "$!";
   
9. while (<NEWENV>){
   
10.     if (/(\w+)=(.*)/){
    
11.       $ENV{$1}="$2";
    
12.     }
    
13. }
    
14. close NEWENV;
    
15. 
    
16. for my $count (0..1) {
    
17.         my @all_dir;
    
18.         sub wanted {
    
19.                 push @all_dir,$File::Find::name if ( $_ =~ /^radius\.log$/ );
    
20.         }
    
21.         find(\&wanted,"$ENV{radius_home}/radius_log");
    
22. 
    
23.         print "@all_dir"."\n";
    
24. }
    
25. 
    

复制代码

使用以上 脚本进行  循环查询的时候，只能打印出第一次 的结果，第二次为空，以下为打印结果：
/radius_log/radius_log/log/radius.log


而使用如下脚本执行时，则可以打印出2次的结果..

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. use File::Find;
   
5. 
   
6. my $profile="~/.bash_profile";
   
7. 
   
8. open(NEWENV, ". $profile && env|") or die "$!";
   
9. while (<NEWENV>){
   
10.     if (/(\w+)=(.*)/){
    
11.       $ENV{$1}="$2";
    
12.     }
    
13. }
    
14. close NEWENV;
    
15. 
    
16. my @all_dir;
    
17. for my $count (0..1) {
    
18.         splice @all_dir;
    
19.         sub wanted {
    
20.                 push @all_dir,$File::Find::name if ( $_ =~ /^radius\.log$/ );
    
21.         }
    
22.         find(\&wanted,"$ENV{radius_home}/radius_log");
    
23. 
    
24.         print "@all_dir"."\n";
    
25. }

复制代码

修改后的脚本就是 将 @all_dir　变量放到了循环之外，实在搞不明白　第一个脚本的问题出在哪里。。。求大神解惑！！

kingfighters

看你用radius, 就知道你肯定是电信的计费系统..

如果只是放在循环体内和循环体外的差别, 显然第二次输出的是第一次的值,因为数组没有被清空...

shaunsyb

回复 2# kingfighters


    清空了的    splice @all_dir;