<请教>perl批量处理3000个文件

sunzhiguolu

根据你提出的问题，我进行了一下整理，如有不正确的地方 请给予指正 谢谢。
1.>
如你所说，每个文件都是固定格式数据项。即
dog data
     name = bbbb...
     birthday = 20151201 14:23:23...
     gender=male...
      healthy = nok...
如上所示，可以看作一个完整的数据项。
其中有一个问题不是很理解，dog data 对于每个数据项来说是否为固定值？

2.>
筛选条件，查找数据项中具有指定值的 name 键。
并且
time-birthday > 10，这个值是如何得来的。请给出具体示例。
并且
healthy 不为 nok 的，该项的取值都有哪些？请给出示例。

最后，输出结果中。不论每个文件包含多少个数据项 只要有一个数据项满足以上条件 那么就显示该文件名? 还是有其他要求？

sunzhiguolu

time  -  birthday  >  10   即求两个的时间差，小于10个小时
你的要求是用文件的保存时间 即开头的 time 字段的年月日 如本例中的 20170101 与 数据项中的每个 birthday 键的完整日期时间进行减法操作 (20151201 14:23:23)，
在其他条件满足的情况下，如果时间差 (小于 还是 大于) 10 小时的则满足输出条件 这样？

sunzhiguolu

回复 5# gtluck
cat a.txt
------------------------
now:1488448457
dog data
       name = bbbb
       birthday = 20151201 14:23:23
       gender=male
        healthy = nok


dog data
       name = bbbb
       birthday = 20151201 14:23:23
       gender=male
        healthy = nok


dog data
       name = cccc
       birthday = 20151202 15:23:23
       gender=male
        healthy = nok

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Time::Local;
   
5. use Time::Seconds;
   
6. 
   
7. foreach my $path (glob ('urPath:\\*.txt')){
   
8.     open (my $FHr, '<', $path);
   
9.     my $now = $1 if (<$FHr> =~ /(\d+)/);
   
10.     local $/ = '';
    
11.     while (<$FHr>){
    
12.         my @aItems = (split ("\n", $_))[1, 2, -1];
    
13.         next if ($aItems[0] =~ /(\S+)\z/ and $1 ne 'bbbb');
    
14.         next if ($aItems[-1] =~ /(\S+)\z/ and $1 eq 'nok');
    
15.         my @aTimes = $aItems[1] =~ /(\d{4})(\d{2})(\d{2})\s+(\d+):(\d+):(\d+)/;
    
16.         $aTimes[1] -= 1;
    
17.         my $time = timegm (reverse (@aTimes));
    
18.         next if (Time::Seconds->new ($now - $time)->hours <= 10);
    
19.         print $path, "\n";
    
20.         last;
    
21.     }
    
22.     close ($FHr);
    
23. }
    

复制代码

sunzhiguolu

回复 5# gtluck
cat a.txt
------------------------
now:1488448457
dog data
       name = bbbb
       birthday = 20151201 14:23:23
       gender=male
        healthy = nok


dog data
       name = bbbb
       birthday = 20151201 14:23:23
       gender=male
        healthy = ok


dog data
       name = cccc
       birthday = 20151202 15:23:23
       gender=male
        healthy = nok

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Time::Local;
   
5. use Time::Seconds;
   
6. 
   
7. foreach my $path (glob ('urPath:\\*.txt')){
   
8.     open (my $FHr, '<', $path);
   
9.     my $now = $1 if (<$FHr> =~ /(\d+)/);
   
10.     local $/ = '';
    
11.     while (<$FHr>){
    
12.         my @aItems = (split ("\n", $_))[1, 2, -1];
    
13.         next if ($aItems[0] =~ /(\S+)\z/ and $1 ne 'bbbb');
    
14.         next if ($aItems[-1] =~ /(\S+)\z/ and $1 eq 'nok');
    
15.         my @aTimes = $aItems[1] =~ /(\d{4})(\d{2})(\d{2})\s+(\d+):(\d+):(\d+)/;
    
16.         $aTimes[1] -= 1;
    
17.         my $time = timegm (reverse (@aTimes));
    
18.         next if (Time::Seconds->new ($now - $time)->hours <= 10);
    
19.         print $path, "\n";
    
20.         last;
    
21.     }
    
22.     close ($FHr);
    
23. }
    

复制代码

sunzhiguolu

回复 10# gtluck
1.>
<$FHr> ===> now:1488448457
等价于
if (now:1488448457 =~ /(\d+)/)

2.>
"name = bbbb" =~ /(\S+)\z/
"name =bbbb" =~ /(\S+)\z/

sunzhiguolu

回复 15# gtluck
perl - Time::Local - timegm
NAMETime::Local - efficiently compute time from local and GMT time
SYNOPSIS

•     $time = timelocal( $sec, $min, $hour, $mday, $mon, $year );
•     $time = timegm( $sec, $min, $hour, $mday, $mon, $year );
  

DESCRIPTIONThis module provides functions that are the inverse of built-in perlfunctions localtime() and gmtime(). They accept a date as asix-element array, and return the corresponding time(2) value inseconds since the system epoch (Midnight, January 1, 1970 GMT on Unix,for example). This value can be positive or negative, though POSIXonly requires support for positive values, so dates before thesystem's epoch may not work on all operating systems.
It is worth drawing particular attention to the expected ranges forthe values provided. The value for the day of the month is the actualday (ie 1..31), while the month is the number of months since January(0..11). This is consistent with the values returned fromlocaltime() and gmtime().

sunzhiguolu

回复 15# gtluck
perl - Time::Local - timegm
NAMETime::Local - efficiently compute time from local and GMT time
SYNOPSIS

•     $time = timelocal( $sec, $min, $hour, $mday, $mon, $year );
•     $time = timegm( $sec, $min, $hour, $mday, $mon, $year );
  

DESCRIPTIONThis module provides functions that are the inverse of built-in perlfunctions localtime() and gmtime(). They accept a date as asix-element array, and return the corresponding time(2) value inseconds since the system epoch (Midnight, January 1, 1970 GMT on Unix,for example). This value can be positive or negative, though POSIXonly requires support for positive values, so dates before thesystem's epoch may not work on all operating systems.
It is worth drawing particular attention to the expected ranges forthe values provided. The value for the day of the month is the actualday (ie 1..31), while the month is the number of months since January(0..11). This is consistent with the values returned fromlocaltime() and gmtime().

sunzhiguolu

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use Time::Local;
   
6. use Time::Seconds;
   
7. 
   
8. my $R = qr /\d\d/;
   
9. my %hDogsList = map {$_ => 1} qw (aaa bbbb ccccc);
   
10. 
    
11. foreach my $path (glob ('urPath:\\*.txt')){
    
12.         open (my $FHr, '<', $path);
    
13.         my $saveTime = $1 if (<$FHr> =~ /\Anow:(\d+)/);
    
14.         local $/ = '';
    
15.         my %hDog = ();
    
16.         while (<$FHr>){
    
17.                 foreach (split (/\n/)){
    
18.                         y/[ \t]//d;
    
19.                         my @aPairs = split (/=/);
    
20.                         if (@aPairs % 2){
    
21.                                 $hDog{'DD'} = $_;
    
22.                                 next;
    
23.                         }
    
24.                         $hDog{$aPairs[0]} = $aPairs[-1];
    
25.                 }
    
26.                 my @aTimes = ($6, $5, $4, $3, $2 - 1, $1) if ($hDog{'birthday'} =~ /($R$R)($R)($R)($R):($R):($R)/);
    
27.                 my $time = timegm (@aTimes);
    
28.                 my $hours = Time::Seconds-> new ($saveTime - $time)->hours;
    
29.                 next if (!$hDogsList{$hDog{'name'}} or $hDog{'healthy'} eq 'nok' or $hours <= 10);
    
30.                 print $path, "\n";
    
31.                 last;
    
32.         }
    
33.         close ($FHr);
    
34. }
    

复制代码

sunzhiguolu

回复 18# jason680
大神 对于这个问题，还有其他的解决方法吗？还请您指点。。。