perl正则计数问题

sai9924

[MQListener] *mobile:13568923001
[MQListener] *content:[MQListener] *sendTime:2011-08-23 23:33:42
[MQListener] *sendSuccess0309)[13568923001,2011-08-23 23:33:42,10000824002626203904994]
[MQListener] ******************receive message from mq end******************
[MQListener] ******************receive message from mq start******************
[MQListener] *source0309)[{"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] *sendSuccess0309)[13568923001,2011-08-23 23:33:42,10000824002626203904994]
[MQListener] ******************receive message from mq end******************
[MQListener] ******************receive message from mq start******************
[MQListener] *source0309)[{"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] *sendSuccess0309)[13568923001,2011-08-23 23:33:42,10000824002626203904994]
[MQListener] ******************receive message from mq end******************
[MQListener] ******************receive message from mq start******************
[MQListener] *source0309)[{"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

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

兰花仙子

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

Kitaisky

perl -ne '$i++ if /mobile.+?\d{11}/; END {print "$i\n"}' file

yinyuemi

perl -le '@a=<>;map{$i++ if (/mobile.+(\d{11})/)} @a;print $i'