字串比对

字串比对
作者提供的相关的附件（大小：1 K）

我想作字串比对，抓取相符的字串后的数字，然后输出档案
现在已经能找到字串，但要如何才能抓后面的数字呢，下面是我的程式，还有资料档
open (LOG, "2.txt") or die "开启档案失败: $!"; # 打开这个日志档
my $a="MO inject size";
my $b="PA inject size";
while (<LOG>) {
print "a" if ($a);
print "b" if ($b);
print "\n";

}

推入数组.

open (LOG, "2.txt") or d.
open (LOG, "2.txt") or die "开启档案失败: $!"; # 打开这个日志档
my $a="MO inject size";
while (<LOG>) {
if(/$a,\s+(\S*),/){
print $1;
}
}

这里$1就是你想要得数字。