Chinaunix

标题: perl正则计数问题 [打印本页]

作者: sai9924 时间: 2011-08-24 13:51
标题: perl正则计数问题
[MQListener] *mobile:13568923001
[MQListener] *content:[MQListener] *sendTime:2011-08-23 23:33:42
[MQListener] *sendSuccess

0309)[13568923001,2011-08-23 23:33:42,10000824002626203904994]
[MQListener] ******************receive message from mq end******************
[MQListener] ******************receive message from mq start******************
[MQListener] *source

0309)[{"mobile":"13568923001","uuid":"ae98b7d7-7dfd-44a0-b973-d84ca4ed844a","content":"
sendTime":"2011-08-23 23:33:42"}]
------------------------------------------------------------------------------------------------------------------------------------------------------
[MQListener] *mobile:13568923001
[MQListener] *content:[MQListener] *sendTime:2011-08-23 23:33:42
[MQListener] *sendSuccess

0309)[{"mobile":"13568923001","uuid":"ae98b7d7-7dfd-44a0-b973-d84ca4ed844a","content":"
sendTime":"2011-08-23 23:33:42"}]
------------------------------------------------------------------------------------------------------------------------------------------------------

这样的一个文本如果行数是100行，这样打印的计数是错误的，
perl -ne 'm<.*mobile.+?(\d{11})>; print $1."\n" if $1' file

应该怎么简单快速的打印出手机号出现的正确次数

作者: 兰花仙子 时间: 2011-08-24 14:13

$ perl -nle '$i++ if /mobile.*?[0-9]{11}/;END{print $i}' in.txt
6

作者: Kitaisky 时间: 2011-08-24 14:18
perl -ne '$i++ if /mobile.+?\d{11}/; END {print "$i\n"}' file

作者: yinyuemi 时间: 2011-08-24 14:39
perl -le '@a=<>;map{$i++ if (/mobile.+(\d{11})/)} @a;print $i'

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)