2008-06-20
全文显示

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

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); pr ...