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

不是很难的。

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

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

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

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

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

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