PERL中怎样倒序匹配

HF.SKY000

UID: 28252
帖子: 3
积分: 6
在线时间: 10 分钟

1^# HF.SKY000 发表于 2008-09-27 16:32

PERL中怎样倒序匹配

Number of retransmitted PDUs (uplink/downlink) per coding scheme per cell on the RF interface (9,4) Sat Sep 27 02:00:00 2008 ptppkf {1 1 0 0} 80 BSS:1/SCANGPRS:0 60 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0 0 0 0 0 0 0 0 0 0 0

在perl中怎么匹配这一行中最后26个数,要求方法最简单,准确(排除按顺序一个个地去匹配).
希望高手帮忙.

[fly]php忠实网迷[/fly]

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

2^# __lxmxn__ 发表于 2008-09-27 17:51

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl -w

my $mystr = 'Number of retransmitted PDUs (uplink/downlink) per coding scheme per cell on the RF interface (9,4) Sat Sep 27 02:00:00 2008 ptppkf {1 1 0 0} 80 BSS:1/SCANGPRS:0 60 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0 0 0 0 0 0 0 0 0 0 0';

if ( $mystr =~ m/([0-9]+ ?){26}$/ ) {
print "[$&]", "\n";
}