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

gtluck

回复 8# gtluck

传参的方式我找到了，谢谢。export and ENV

sditmaner

强烈支持楼主ing……

moperyblue

1. awk  -F' *= *' 'function t(s){match(s,/(....)(..)(..) (..):(..):(..)/,a);r="";for(i in a)if(+i&&length(i)==1)r=r?r OFS a[i]:a[i];return mktime(r)}NR<2{sub(/.*: */,"");st=$1}/name/{f=p=0;if($2==key)f=1}f&&/birthday/{time_diffs=(st-t($2))/3600;if(time_diffs>10)p=1}p&&/healthy/&&$2!="nok"{print FILENAME;nextfile}' key="aaaaaa" *.txt

复制代码

sunzhiguolu

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

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

gtluck

回复 14# sunzhiguolu

many thanks!!

关于时间处理还有，最后一个疑问，烦请您帮忙解答：
  $aTimes[1] -= 1;
这里为撒要减1啊。

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().

jason680

回复 7# sunzhiguolu

这是什么编程, 关键词都不管的...

time:20170101
dog data
     name = aaaaaa...
     birthday = 20000101 15:00:00...
     gender=male...
     healthy = nok...
     woner = John
     tel = ...

现在的需求是读取指定name的dog data,如果文件中包含此name，而且time-birthday>10,healthy不为nok的

# 文档格式改变,或多或少立马出问题
my @aItems = (split ("\n", $_))[1, 2, -1];   

#要指定 ??
next if ($aItems[0] =~ /(\S+)\z/ and $1 ne 'bbbb');  

# 不在最后一行时 ??
next if ($aItems[-1] =~ /(\S+)\z/ and $1 eq 'nok');

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
大神 对于这个问题，还有其他的解决方法吗？还请您指点。。。