2009年7月21日星期二

[PerlChina] 请教一个正则表达式的问题

#!/usr/bin/perl
use strict;
use warnings;

my $txt1="slot 0/3/0/0/0";
my $txt2="slot 0/4/0/0/0";

my @addrs;
foreach($txt1,$txt2)
{
my @tmp=split ' ';
push @addrs,$tmp[1];
}

my $txt3="0/3/0/0/0/0 CLAIMED";

foreach my $addr (@addrs)
{
$txt3 =~ /$addr\/0\s+(.*)/;
print $1,"\n";
}


上面这个程序在txt3中匹配0/3/0/0/0和0/4/0/0/0。
程序输出两次CLAIMED,可是第二次明明就不匹配啊,为什么呢
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

没有评论: