求助：perl读取文本倒数第四行的第一个数值

skyheight

目前有很多数据需要处理，需要得到文件夹目录下所有文本的倒数第四行的第一个数字，判断其是否<=8，是则拷贝至目标文件夹。
现在可以得到文件的行数$count，计划通过读取$count-3行的第一个数值，进行判断，以达到上述目的。
但是不知道该怎么往下写了，肯定大神帮忙指点一下。
非常感谢！

文件内容大致如下：
...
前面n行
...

Overall Ring count:

Ring size   Number
      3         2
      4         3
      5         2
      6        10
      7         4


Average Ring size:   6.00

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use File::Spec::Functions;
   
4. use File::Copy;
   
5. 
   
6. $searchdir="C:/users/61068/Desktop/test";
   
7. $destinationdir="C:/users/61068/Desktop/test/results";
   
8. opendir(DIRHANDLE,$searchdir) || die "Cann't open $searchdir !";
   
9. while($file=readdir DIRHANDLE) {
   
10.         if (-d "$searchdir/$file") {
    
11.                 print "$searchdir/$file is a directory!\n";
    
12.         } else {
    
13.                 open(FH, "$searchdir/$file") || die "cann't open $searchdir/$file !\n";
    
14.                 my $count = 0;
    
15.                 while(<FH>){
    
16.                         $count += 1;
    
17.                                }
    
18.                        print "$file have $count lines.\n"; #得到文件的行数
    
19.                        #读取倒数第四行的第一个数字
    
20.                        #判断数字是否<=8
    
21.                        #是则拷贝文件至$destinationdir
    
22.                                         }
    
23.                                 }
    
24. close(FH);
    
25. closedir(DIRHANDLE);

复制代码

sunzhiguolu

1. PowerShell Codes:
   
2. $wkPath = "z:\data"
   
3. $targetPath = "z:\Target"
   
4. if(!(Test-Path -Path $targetPath)){
   
5.     New-Item -Path $targetPath -ItemType Directory
   
6. }
   
7. Set-Location -Path $wkPath
   
8. Get-ChildItem -Filter *.txt | foreach {
   
9.     $line = (Get-Content -Path $_.FullName -Tail 4)[0]
   
10.     if($line.TrimStart()[0] -le 8){
    
11.         Copy-Item -Path $_ -Destination $targetPath
    
12.     }
    
13. }

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aLines = <DATA>;
   
6. if($aLines[-4] =~ /(\d+)/ and $1 <= 8){
   
7.         print("$1\n");
   
8. }
   
9. 
   
10. __DATA__
    
11. Overall Ring count:
    
12. 
    
13. 
    
14. Ring size   Number
    
15. 
    
16.       3         2
    
17. 
    
18.       4         3
    
19. 
    
20.       5         2
    
21. 
    
22.       6        10
    
23. 
    
24.       7         4
    
25. 
    
26. 
    
27. Average Ring size:   6.00
    

复制代码

jason680

http://bbs.chinaunix.net/thread-4264044-1-1.html

skyheight

回复 3# sunzhiguolu

十分感谢