求教，递归遍历查找符号链接文件问题。

ulmer

原帖由 aman13 于 2007-2-27 14:01 发表
写了一个perl script, 想找出所有的符号链接文件。比如
dir001----file1
          |---file2
          |---link1
          |---link2
          |---dir002----file3
                        |----link ...

Hi,

allways attention to absolute and relative path in opendir(...).
readdir(...) returns only relative file or dir name.
if you want to check -l under reursivie dir, should check -l too, not only -d:
i.e: sample code:

1. 
   
2. #!/usr/bin/perl -s
   
3. 
   
4. sub ScanDirectory{
   
5.     my ($workdir) = shift;
   
6.     opendir(DIR, $workdir)or die "unable to open $!\n";
   
7.     my @names = readdir(DIR);
   
8.     closedir(DIR);
   
9. 
   
10.     foreach my $name(@names){
    
11.         next if $name eq "." || $name eq "..";
    
12.         my $fullname = $workdir. '/'. $name;
    
13.         # don't make -l recursively!
    
14.         if (-d $fullname && ! -l $fullname){
    
15.             &ScanDirectory($fullname);
    
16.         } else {
    
17.             # display link file:
    
18.             if (-l $fullname) {
    
19.                 print "-l: $fullname\n";
    
20.             }
    
21.         }
    
22.     }
    
23. }
    
24. 
    
25. &ScanDirectory($ARGV[0] ? $ARGV[0} : '.');
    
26. 
    

复制代码

-- ulmer