怎样查找到空目录并删除呢?

流氓我一生

用perl怎么查找空目录呢? 能给个小程序么,谢谢!

nyfor

1. 
   
2. #!/usr/bin/perl
   
3. sub lookDir
   
4. {
   
5.   my ($dir) = @_;
   
6.   my (@files,$file,$isEmpty,$retIsEmpty);
   
7.   die "Can not open dir $dir." unless (opendir(DIR,$dir));
   
8.   @files = readdir(DIR);
   
9.   closedir(DIR);
   
10.   $isEmpty = 1;
    
11.   foreach $file(@files) {
    
12.            next if ($file  eq '.' or $file eq '..');
    
13.            if (-d "$dir/$file") {
    
14.                    if ($retIsEmpty = lookDir("$dir/$file")) {
    
15.                            print "$dir/$file Removed!\n" if (rmdir("$dir/$file"));
    
16.                    }
    
17.                    else {
    
18.                            $isEmpty *= $retIsEmpty;
    
19.                    }
    
20.            }
    
21.            else {$isEmpty = 0;}
    
22.   }
    
23.   if ($isEmpty) {
    
24.            print "$dir Removed!\n" if (rmdir("$dir"));
    
25.   }
    
26.   return $isEmpty;
    
27. }
    
28. my ($dir) = $ARGV[0]||'.';
    
29. 
    
30. $dir =~ s/\\/\//g;
    
31. lookDir($dir);
    

复制代码

流氓我一生

谢谢..代码中的  $dir/$file 是什么意思呢?
还有else {  $isEmpty *= $retIsEmpty;} 这段又是为什么呢?

流浪者

$dir/$file 表示目录下的子目录或文件；
$isEmpty *= $retIsEmpty；表示$isEmpty=$isEmpty*$retIsEmpty;

流氓我一生

我知道＊＝的意思．．我是说为什么要乘一下呢？没看懂：（

流浪者

如果不是目录的话，就乘以$retIsEmpty啊（因为$retIsEmpty未初始化），所以乘积为零。

nyfor

呵呵，失误失误，$isEmpty *= $retIsEmpty；==》 $isEmpty = 0；就可以了

流氓我一生

谢谢楼上二位！

laoxia

对不起，问个容易引起群殴的傻问题，给删掉了