perl 的mail严格正则表达式到底要怎么写?
#! /usr/bin/perl -w$line = <STDIN>;
chomp($line);
if($line =~ /(^{1}\w*(\-{0,1}\w{1})*(\.{0,1}\w{1})*{1,}@({1,}\-*\.*{1,})+\.{2,8}$)/){
print "is $1 \n";
}
说明：{1} \w*(\-{0,1}\w{1})* (\.{0,1}\w{1})* {1,} @ ( {1,} \-*\.*{1,} )+\. {2,8}
.net正则里不能用于perl：http://www.cnblogs.com/LCX/archive/2008/07/16/1244481.html
页:
[1]