请大神帮忙看下

b4and5

1. use strict;
   
2. 
   
3. sub dir_walk {
   
4.     my ($top, $code) = @_;
   
5.     my $DIR;
   
6. 
   
7.     $code->($top);
   
8. 
   
9.     if (-d $top) {
   
10.         my $file;
    
11.         unless (opendir $DIR, $top) {
    
12.             warn "Couldn't open directory $top: $!; Skipping.\n";
    
13.             return;
    
14.         }
    
15.         while ($file = readdir $DIR) {
    
16.             next if $file eq '.' || $file eq '..';
    
17.             dir_walk("$top/$file", $code);
    
18.         }
    
19.     }
    
20. }
    
21. 
    
22. sub print_dir {
    
23.        print $_[0], "\n";
    
24.     }
    
25. 
    
26. dir_walk('.', \&print_dir);
    

复制代码

dir_walk 遍历目录内的文件和子目录...
假定当前目录.内只有文件，没有子目录，执行该脚本后会打印出该当前目录内的所有文件列表。
我不明白sub print_dir为什么能够打印出来当前目录下的文件列表。
不是就应该单单打印出一个.吗？  

谢谢

b4and5

回复 1# b4and5

不好意思，我想明白了。
不知道怎么删除帖子。