神鵰蝦

在搜索email帳號這篇中有提到只用@來判斷email是否正確是不夠精確的，
在email address的組成中，
@以前的稱為local-part，指得是使用者的名稱(username)，
@以後的稱為domain-part，通常是由主稱名稱(host name)或網域名稱(domain name)構成，
這裡要介紹的是Email::Valid模組，
可用來判所email address是否格式正確。

use Email::Valid;

while(<DATA>){
chomp;
my $email=$_;
  unless(Email::Valid->address($email)){
   print '這個帳號格式有問題 ', $email, "\n";
  }
}
__DATA__
jck11@ms94.url.com.tw
jck11.@ms94.url.com.tw
jck11@ms94,url.com.tw
jck11@ms94