如何驗(yàn)證 Email 地址是否有效

一般來(lái)說(shuō)，你不能。有一些看起來(lái)合理的方法可以使用，但卻沒(méi)有辦法檢測(cè)地址 是否實(shí)際可以投遞，如果沒(méi)有實(shí)際嘗試投遞的話。

使用正則表達(dá)式：

# Match basically blah@blah.blah
if ( $addr =~ /^\S+\@\S+\.\S+$/ ) {
    print "Looks OK";
}

如果你干真活的話，可能希望看看 CPAN 上可用的模塊，比如： Email::Address 、 Email::Valid 。

如何從數(shù)據(jù)庫(kù)獲得數(shù)據(jù)

DBI?及其?DBD?子模塊，如?DBD::SQLite 。

如何從網(wǎng)頁(yè)獲得數(shù)據(jù)

LWP?意為? libwww-perl ，它是與網(wǎng)頁(yè)交談的標(biāo)準(zhǔn)方式。

WWW::Mechanize?是使 HTML 處理更容易的?LWP?的超集。

如何做日期計(jì)算

使用?Date::Manip 、 Date::Calc 、或? DateTime 。全部都有不同的樣式和 不同的能力。

如何處理程序的命令行參數(shù)

使用? Getopt::Long 。

如何解析 HTML

無(wú)論你做什么，都不要使用正則表達(dá)式。使用?HTML::Parse?或別的類(lèi)似東東。 如果你解析 HTML 是為了從網(wǎng)頁(yè)提取鏈接或圖像，不妨使用? WWW::Mechanize 。

如何來(lái)點(diǎn)顏色

使用? Term::ANSIColor 。

如何讀取鍵及不看到輸入的密碼

使用? Term::ReadKey 。