自己写了一个脚本，运行有问题，请大家帮忙看看

condor_P

作用。统计一个目录下，所有文件行数的总和。如果目录中还有目录，则递归查询，知道查到所有文件。

1. 
   
2. #!/usr/local/bin/perl
   
3. 
   
4. use strict;
   
5. use vars qw/$count/;
   
6. 
   
7. $count = 0;
   
8. my $default_dir = $ENV{PWD};
   
9. 
   
10. my $dir = $ARGV[0] || $default_dir;
    
11. chomp $dir;
    
12. 
    
13. get_dir($dir);
    
14. print $count."\n";
    
15. 
    
16. sub get_file {
    
17.         my $file = shift;
    
18.         open (FH,"$file") or die "Can't open the file:$!\n";
    
19.         count_file("*FH");
    
20.         close FH;
    
21. }
    
22. 
    
23. sub get_dir {
    
24.         my $dir = shift;
    
25.         opendir (DIR,"$dir") or die "Can't open dir:$!";
    
26.         my @file = readdir(DIR);
    
27.         closedir(DIR);
    
28.         foreach (@file){
    
29.                 if (-d $_){
    
30.                         get_dir($_);
    
31.                 }else{
    
32.                         get_file($_);
    
33.                 }
    
34.         }
    
35. }
    
36. 
    
37. sub count_file {
    
38.         my $FH = shift;
    
39.         while (<FH>) {
    
40.                 next if /^\s+$/;
    
41.                 ++$count;
    
42.         }
    
43. }
    
44. 
    

复制代码

请大家指正，我是新手。程序运行时，过一段时间显示：
Out of memory during request for 4084 bytes, total sbrk() is 536793088 bytes!
Out of memory during request for 2052 bytes, total sbrk() is 536795136 bytes!
查看top信息。发现交换分区全部用完。

ulmer

原帖由 condor_P 于 2006-7-10 15:04 发表

1. 
   
2. 1  sub get_dir {
   
3. 2        my $dir = shift;
   
4. 3        opendir (DIR,"$dir") or die "Can't open dir:$!";
   
5. 4         my @file = readdir(DIR);
   
6. 5        closedir(DIR);
   
7. 6         foreach (@file){
   
8. 7             if (-d $_){
   
9. 8                 get_dir($_);
   
10. 9            }else{
    
11. 10              get_file($_);
    
12. 11          }
    
13. 12     }
    
14. 13 }
    

复制代码

Hallo,

the wrong point is at if (-d $_) { ...
reddir() reads relative filename and put it (without fullpath) in the array @file!
You should check $_ with fullpath!!!
i.e.:

1. 
   
2. 6      foreach (@file) {
   
3.             next if $_ eq '.' or $_ eq '..';    // skip it
   
4. 7          my $fullfilename = "$dir/$_";
   
5. 8          if (-d $fullfilename) {
   
6. 9              get_dir($fullfilename);
   
7. 10        } else {  
   
8. 11            get_file($fullfilename);
   
9. 12        }
   
10. 13    }
    

复制代码

Read more about perldoc perlfunc =>relative opendir(), readdir()

Best,
    ulmer

--------
Just 4 Fun

condor_P

非常感谢您的帮助，按照您的方法，我成功了。

[ 本帖最后由 condor_P 于 2006-7-10 17:17 编辑 ]