想求助一个关于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不是很懂写法，又不知道用什么关键字找范例，在这里求助各位大哥大姐了~
不是很难的。
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
用正则表达式完成。
正则表达式通常被用来检索和/或替换那些符合某个模式的文本内容。
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
用正则表达式完成。
正则表达式通常被用来检索和/或替换那些符合某个模式的文本内容。
温馨提示：内容为网友见解，仅供参考
第1个回答 2015-09-29
不是很难的。
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
用正则表达式完成。
正则表达式通常被用来检索和/或替换那些符合某个模式的文本内容。
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
用正则表达式完成。
正则表达式通常被用来检索和/或替换那些符合某个模式的文本内容。
第2个回答 2011-03-31
push (\@@) {} 之类的。不过不推荐使用，引用就完全可以满足需求了
第3个回答 2011-03-31
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";
最后一行把三个数都读了。自己去一下就可以了
my @array = <FH>;
my @gotdigit;
my $line;
foreach $line(@array){
chomp $line;
while( $line=~/:\s([\d\.]+)/g){
push @gotdigit,$1;
}
}
print "@gotdigit";
最后一行把三个数都读了。自己去一下就可以了
第4个回答 2011-03-31
可以用正则表达式完成。具体建议你多看看正则表达式那部分。不是很难的。追问
到具体的实现的时候就遇到问题。我现在的想法有两个，一个是如果我去匹配比如说"Monte Carlo:"，然后我再把后面的数据读进一个数组里；另一个是用正则表达式匹配连后面的数字一起读进去，然后只把数字部分存进数组里。但是两个方法我都不知道怎么存进数组的这一步要怎么写……
追答用push @a,$v不就行了吗？具体前面的几行的识别可以这样实现：my ( $k, $v ) = /(\S+)\s*:\s*(.*)/
后面一行比较棘手，我还没想到。。
相似回答
