在perl中怎么匹配这一行中最后26个数,要求方法最简单-snowtty-ChinaUnix博客

冰雪塵埃snowtty.blog.chinaunix.net

首页　| 　博文目录　| 　关于我

snowtty

博客访问： 5351990
博文数量： 1144
博客积分： 11974
博客等级：上将
技术积分： 12312
用户组：普通用户
注册时间： 2005-04-13 20:06

文章分类

全部博文（1144）

技术--Oracle&MyS（112）
编程--python编程（21）
编程--perl程序（183）
技术--防火墙类（9）
技术--samba类（7）
技术--apache类（18）
技术--netfilter（7）
工作--工作??（62）
生活--情感生活（116）
学习--英语学习（24）
学习--早先日志（46）
工作--周报总结（36）
学习--学习笔记（45）
技术--Rsync维护（11）
技术--OPENldap（1）
技术--squid维护（9）
技术--DNS 维护（17）
技术--FTP 维护（7）
技术--qmail维护（128）
技术--网络技术（26）
技术--linux 类（183）

openvpn（0）

nagios（10）
编程--awk&sed（11）
编程--shell编程（50）
未分配的博文（15）

文章存档

2017年（2）

2016年（14）

2015年（10）

2014年（28）

2013年（23）

2012年（29）

2011年（53）

2010年（86）

2009年（83）

2008年（43）

2007年（153）

2006年（575）

2005年（45）

我的朋友

最近访客

推荐博文

在perl中怎么匹配这一行中最后26个数,要求方法最简单

分类：

2008-09-28 11:05:39

#!/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";
}

阅读(1474) | 评论(1) | 转发(0) |

上一篇：perl 学习

下一篇： UTF-8 mode处理中文问题

给主人留下些什么吧！~~

chinaunix网友2008-09-28 11:08:02

。。。◢＼　　☆　　／◣ 　　∕　　﹨　╰╮∕　　﹨ 　　▏　　～～′′～～　｜　　﹨／　　　　　　　＼∕ 　　 / 　　●　　　 ●　＝＝　○　∴·╰╯　∴　○　＝＝　╭——╮　　　　　╭——╮ ╔═∪∪∪═════∪∪∪═╗ ║　中天看望板凳迷　　　╠═╗ ║ o（∩_∩）oo（∩_∩）o...║　║ ║　国庆节快乐!　　　　 ║　║ 。═══════════════。 █◣◢█◣◢█◣◢█◣◢█◣◢█◣ █真█████好█████天████ ◥█心██◤◥█友██◤◥█快██◤ ★◥█祝◤★★◥█天◤★★◥█樂◤★

回复 | 举报

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6