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

aman13

写了一个perl script, 想找出所有的符号链接文件。比如
dir001----file1
          |---file2
          |---link1
          |---link2
          |---dir002----file3
                        |----link3
                        |----link4

这个脚本在dir001下run, 就应该找出 link1, link2, link3, link4 文件。原程序如下
      #!/usr/bin/perl -s
           use Cwd;
           sub ScanDirectory{
        my ($workdir)=shift;
        my($startdir)=&cwd;
        chdir($workdir)or die "unable to open $!\n";
        opendir(DIR,".")or die "unable to open $!\n";
        my @names=readdir(DIR);
                    closedir(DIR);
                     foreach my $name(@names){
                                 next if ($name eq ".");
                                 next if($name eq "..");
                    if(-d $name){
                     &ScanDirectory($name);

                         }
                    if(-l $name){
                      print "$name\n";
        }

                    chdir($startdir) or die"unable $!\n";
                     }
               }
              &ScanDirectory(".");

但是，运行以后发现只能找全当前目录下所有的符号链接文件,子目录下的符号链接文件只能找到第一个。我想不出错在哪里？哪位大仙帮忙看看，谢谢先！

flw

use File::Find;

aman13

就是想弄明白为什么用 -l filename 不行。

路小佳

因为$name是相对路径， 而脚本的工作在当前目录下， 所以最好手动补齐全路径， 要不就chdir。

aman13

但是如果我不作判断，只是打印文件名，那么所有文件名都会打印出来。这不象找不到路径啊？

路小佳

唉， 我罗嗦的不得要领。
当pwd在dir001下时.
-l "dir002/link3" 或-l "/path/to/dir001/dir002/link3"都成功。
但是
-l "link3"却不对。

aman13

那为什么能打印出子目录底下的第一个符号链接文件？谢谢。

路小佳

啊， 这么回事， 我又想当然了， 不知道。

Namelessxp

循环里面那个 chdir 做什么用的？

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