#!?/usr/bin/perl?-w
$line?=?<STDIN>;
chomp($line);
if($line?=~?/(^[a-zA-Z1-9]{1}\w*(\-{0,1}\w{1})*(\.{0,1}\w{1})*[a-zA-Z1-9]{1,}@([a-zA-Z1-9]{1,}\-*\.*[a-zA-Z1-9]{1,})+\.[a-zA-Z]{2,8}$)/){
print?"is?$1?\n";
}

說明：[a-zA-Z1-9]{1} \w*? (\-{0,1}\w{1})*?? (\.{0,1}\w{1})*?? [a-zA-Z1-9]{1,} @ ( [a-zA-Z1-9]{1,} \-*? \.*? [a-zA-Z1-9]{1,} )+\.????? [a-zA-Z]{2,8}
.net正則里不能用于perl：http://www.cnblogs.com/LCX/archive/2008/07/16/1244481.html

轉載于:https://www.cnblogs.com/LCX/archive/2009/10/28/1591064.html

總結

以上是生活随笔為你收集整理的perl 的mail严格正则表达式到底要怎么写?的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。