Question

想求助一个关于perl的从txt里提取对应数据并保存到数组里的方法

我有这样的文件
log.txt
SciMark 2.0a

Composite Score: 4.63096770016667
FFT (1024): 3.0622202247192263
SOR (100x100): 7.31858823529406
Monte Carlo : 1.3177203895695915
Sparse matmult (N=1000, nz=5000): 5.467164975974234
LU (100x100): 5.989144675276233
ConcurrentContext (0) Quick-Sort (10000 - Average: 570 ms, Minimum: 548 ms, Maximum: 593 ms

我想用perl读入冒号后面的数据，而最后一行要读入Average后面的那个数字，然后把他们放在一个数组里。请问代码应该怎么写呢……初学perl不是很懂写法，又不知道用什么关键字找范例，在这里求助各位大哥大姐了~

Answer 1

不是很难的。

use 5.010;
while(<>){
given ($_) {
when (/Average/){/Average:\s*(\d+)\s*ms/;push @array,$1}
when (/:/){/:\s*(\d.*$)/;push @array,$1}
}
}

print "@array\n";

=====================
4.63096770016667 3.0622202247192263 7.31858823529406 1.3177203895695915 5.467164975974234 5.989144675276233 570

用正则表达式完成。
正则表达式通常被用来检索和/或替换那些符合某个模式的文本内容。

Answer 2

不是很难的。

use 5.010;
while(<>){
given ($_) {
when (/Average/){/Average:\s*(\d+)\s*ms/;push @array,$1}
when (/:/){/:\s*(\d.*$)/;push @array,$1}
}
}

print "@array\n";

=====================
4.63096770016667 3.0622202247192263 7.31858823529406 1.3177203895695915 5.467164975974234 5.989144675276233 570

用正则表达式完成。
正则表达式通常被用来检索和/或替换那些符合某个模式的文本内容。

Answer 3

push (\@@) {} 之类的。不过不推荐使用，引用就完全可以满足需求了

Answer 4

open (FH, "log.txt") || die "open log file fail $!";
my @array = <FH>;
my @gotdigit;
my $line;
foreach $line(@array){
chomp $line;
while( $line=~/:\s([\d\.]+)/g){
push @gotdigit,$1;
}
}
print "@gotdigit";

最后一行把三个数都读了。自己去一下就可以了

Answer 5

可以用正则表达式完成。具体建议你多看看正则表达式那部分。不是很难的。

追问

到具体的实现的时候就遇到问题。我现在的想法有两个，一个是如果我去匹配比如说"Monte Carlo:"，然后我再把后面的数据读进一个数组里；另一个是用正则表达式匹配连后面的数字一起读进去，然后只把数字部分存进数组里。但是两个方法我都不知道怎么存进数组的这一步要怎么写……

追答

用push @a,$v不就行了吗？具体前面的几行的识别可以这样实现：my ( $k, $v ) = /(\S+)\s*:\s*(.*)/
后面一行比较棘手，我还没想到。。