用perl写email验证时遇到的问题

lakers009

Email匹配描述：
第一部分：一个或多个（以一个或多个字母开头，后面是0个或多个数字减号、下划线）
第二部分：@
第三部分：一个或多个字母，后面是0个或多个减号、下划线
第四部分：一个或多个（以点号开头，后面跟随一个或多个字母）
表述貌似不太清晰吧，哈哈
#!/usr/bin/perl
$email[0] = "test\@vip.sina.com";
$email[1] = "ab\@sidf.xcom";
$email[2] = "asdfkjskjskkjl";
$email[3] = "a\@a.";
print join("\t",@email);
print "\n";
for ($i=0;$i<$#email+1;$i++) {
if ($email[$i] =~ /^([a-z]+([0-9]+)?[-_]*)@+([a-z]+[-_]*)(\.[a-z]+)+$/i) {
print "Welecome! ".$&;
}else{
print "Sorry, ",$email[$i]," is a Invalide Email!";
}
print "\n";
}

注意的问题：
1、@为perl关键字，所以用例中必须\@处理。
2、$#email为数组email的长度。
3、对于$和@可以简单理解为单一和全部。$email[$i]即为唯一的值，@email即为所有数组。