求教一个perl小程序的编写

youcaihuazi

UID: 1587
帖子: 1
积分: 2
在线时间: 10 分钟

1^# youcaihuazi 发表于 2008-10-23 23:12

求教一个perl小程序的编写

手机号码过滤，因为有特殊字符，需要过滤一下，把纯粹的手机号码过滤出来。如目前的一个文件，存在以下内容，只要把13001002083过滤出来即可，请教一下各位怎么写。
yds@163.com
126@126.com
13001002083

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

2^# ynchnluiti 发表于 2008-10-23 23:44

perl -ne 'print if /^1\d{10}$/;' file

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

3^# ynchnluiti 发表于 2008-10-23 23:58

#!/usr/bin/perl -w

use strict;
use warnings;

while (<DATA>) {
print if /^1\d{10}$/;
}

__DATA__
[email]yds@163.com[/email]
[email]126@126.com[/email]
13001002083

gaochong

UID: 30603
帖子: 2
积分: 4
在线时间: 10 分钟

4^# gaochong 发表于 2008-12-07 16:15

请问 __DATA__ 这是什么含义？

perldoc perlvar 里我没找到。
谢谢！

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

5^# MMMIX 发表于 2008-12-07 17:13

QUOTE:

原帖由 gaochong 于 2008-12-7 16:15 发表
请问 __DATA__ 这是什么含义？

perldoc perlvar 里我没找到。
谢谢！

那在 perldata 里面找找