请教一个提取数据的小问题

no_6

有一个文本文件named2.stats，其内容为：
success 137
referral 0
nxrrset 6
nxdomain 10
recursion 142
failure 4

需要通过一个perl脚本，将其中success和failure一行中的数字提取出来。
我实验写了一个简单脚本，如下所示：

use strict;

my ($tmp_str);
my ($success);
my ($stats_cmd);

$stats_cmd="tail -10 named2.stats";
$tmp_str=system($stats_cmd);
&parseRdncResult($tmp_str);


sub parseRdncResult{   
    my ($tmp_str) = @_;
    my ($success,$failure);
if ($tmp_str =~ /(\d+)\s(success)\s(\d+)/s){        
$success = $2;
    }
if ( $tmp_str =~ /(failure)\s(\d+)/s ){
        $failure = $2;
    }
print "&&&&&&&&&&&&&&&";
print "\n";
print $success;
print $failure;
}

现在发现运行结果中没有显示出success和failure的值，如下所示：
[root@dnslog tmp]# perl test2.pl
success 137
referral 0
nxrrset 6
nxdomain 10
recursion 142
failure 4

&&&&&&&&&&&&&&&


————————————————————————
小弟临时用perl写一个脚本，了解不是很深入，希望大家指导一下，谢谢！

兰花仙子

# perl -e '
my $c =<<END;
success 137
referral 0
nxrrset 6
nxdomain 10
recursion 142
failure 4
END
open HD,"<",\$c or die $!;
while(<HD>) {
    chomp;
    $success = $1 if /success\s+(\d+)/;
    $failure = $1 if /failure\s+(\d+)/;
}
print "success: $success\n";
print "failure: $failure\n";
'
success: 137
failure: 4

justlooks

perl -ane 'print $F[1]."\n" if m/^(success|failure)/;'

xych_chinaunix

my @string1=("success 137",
"referral 0",
"nxrrset 6",
"nxdomain 10",
"recursion 142",
"failure 4");
foreach(@string1)
{
    if(/(\bsuccess|failure)\s+(\d+)/)
    {
        print $2,"\n";
    }
}