拆分日志文件

Question

我有一个日志文件：

Wed Oct 17 04:57:08 2018 : Resource = 'test1' cstep= 'titi' time =23.634s 
Wed Oct 17 04:57:50 2018 : Resource = 'test2' cstep= 'titi2' time =22.355s 
Wed Oct 17 04:58:41 2018 : Resource = 'test3' cstep= 'titi3' time =28.611s 
Wed Oct 17 04:58:46 2018 : Resource = 'test4' cstep= 'titi4' time =4.085s 

我只想要超过5秒的线路：

Wed Oct 17 04:57:08 2018 : Resource = 'test1' cstep= 'titi' time =23.634s 
Wed Oct 17 04:57:50 2018 : Resource = 'test2' cstep= 'titi2' time =22.355s 
Wed Oct 17 04:58:41 2018 : Resource = 'test3' cstep= 'titi3' time =28.611s 

我的代码是：

open (FILE, 'logfile.txt');
while (<FILE>) {
($word1, $word2, $word3, $word4, $word5, $word6, $word7, $word8, $word9, $word10, $word11, $word12, $word13, $word14) = split(" ");
print " $word5-$word2-$word3 $word4 $word5 $word6 $word7 $word8 $word9 $word10 $word11 $word12 $word13 $word14 n";
}
close (FILE);
exit;

Answer 1

我对其他答案投了赞成票，但我有

$ perl -ne '/time =(d+.d+)/; if($1>5){print $_;}' file1
Wed Oct 17 04:57:08 2018 : Resource = 'test1' cstep= 'titi' time =23.634s
Wed Oct 17 04:57:50 2018 : Resource = 'test2' cstep= 'titi2' time =22.355s
Wed Oct 17 04:58:41 2018 : Resource = 'test3' cstep= 'titi3' time =28.611s

Answer 2

几个注意事项：

1. 每当您发现自己在编写$variableN时，您可能想要一个数组
2. split的默认行为执行您正在执行的操作3。您需要隔离感兴趣的字段，使其成为数字字段，然后进行数字比较

代码：

use strict;
use warnings;
while (<DATA>) {
my @fields = split;
my $time = $fields[12];
$time =~ s/[^d.]//g; # remove everything except digits and dots
next unless $time > 5;
print; # or whatever
}
__DATA__
Wed Oct 17 04:57:08 2018 : Resource = 'test1' cstep= 'titi' time =23.634s
Wed Oct 17 04:57:50 2018 : Resource = 'test2' cstep= 'titi2' time =22.355s
Wed Oct 17 04:58:41 2018 : Resource = 'test3' cstep= 'titi3' time =28.611s
Wed Oct 17 04:58:46 2018 : Resource = 'test4' cstep= 'titi4' time =4.085s

Answer 3

使用正则表达式匹配从$word13中提取时间，并用数字进行比较：

print " $word5-$word2-$word3 $word4 $word5 $word6 $word7 $word8 $word9 $word10 $word11 $word12 $word13 $word14 n"
if $word13 =~ /=([0-9.]+)/ and $1 > 5;