Yog nws siv tau, thiab nws yuav ua hauj lwm? Yog tias koj sau los yog siv email chaw nyob txhua qhov hauv koj daim ntawv sau npe Perl thiab cov kev pab, koj tuaj yeem sau ntau qhov chaw nyob uas tsis ua haujlwm. Ib tug neeg yuav tsis muaj tsab ntawv sau npe , lwm tus kuj yuav tsis muaj tus cwj pwm tsis txaus siab ntau.
Xijpeem vim li cas nws qhov tsis muaj tseeb, koj xav kom ntes cov chaw nyob tawg - kom sai rau tus neeg siv rov tuaj yeem nkag, lossis kom tsis txhob xa email tuaj rau koj tus kheej kom paub tseeb.
Hauv Perl, koj tuaj yeem ua ib qho kev qhia tsis tu ncua, tau kawg; los yog koj tig mus rau ib qho kev daws teeb meem uas twb muaj ib qho hauv los thiab tuaj yeem kos npe cov npe, ib yam nkaus thiab.
Validate Email Chaw nyob nrog Perl
Los tshawb xyuas email chaw nyob rau ntawm qhov kev ua zoo thiab kev siv tau nyob hauv ib qho Perl tsab ntawv lossis qhov program:
- Tsa email validation rau HTML code yog tias koj muaj cov neeg siv hom email chaw nyob hauv web daim ntawv.
- Siv Email :: Valid-> chaw nyob ('') los ntawm Email :: Valid CPAN Perl module; saib hauv qab no rau cov lus qhia, kev teeb tsa thiab cov qauv.
Email :: Valid Email Chaw Nyob Validation Piv txwv
Assuming $ email_address tuav qhov chaw nyob kom raug soj ntsuam, koj tuaj yeem tshawb xyuas nws cov kev siv tau:
#! / usr / bin / perl siv Email :: Valid $ email_address = 'Kuv @@ example.com'; Yog hais tias (Email :: Valid-> chaw nyob ($ email_address)) {# Tus email chaw nyob yog siv tau} lwm {# Tus email chaw nyob tsis muaj tseeb}Koj tuaj yeem tau muaj Email: Valid kos rau kev siv tau saum toj-theem (ua kom paub tseeb tias ".com", ".net", ".cn" lossis lwm tus siv tau lub npe yog nyob ntawm tus email chaw nyob kawg). Nco ntsoov nqa cov Net :: Domain :: TLD module.
#! / usr / bin / perl siv Email :: Valid $ email_address = 'Kuv @@ example.com'; Yog hais tias (Email :: Valid-> chaw nyob (-address => $ email_address, -tldcheck => 1)) {# email chaw nyob siv tau} lwm {# email chaw nyob tsis muaj tseeb}Nruab tus Email :: Valid Perl Module
Yuav kom kho koj tus installation Perl nrog lub Email :: Module validation rau validating email chaw nyob kom muaj tseeb:
- Qhib cov lus qhia kom sai.
- Hauv Mac thiab Linux, qhib lub Terminal application, piv txwv.
- Hom sudo perl -MCPAN -e 'nruab Email :: Valid' (Mac thiab Linux) los yog perl -MCPAN -e 'nruab Email :: Valid'.
- Nias Sau .
- Nkag mus rau tus neeg siv tus password tshiab thiab nias sau npe yog tias kev tshoov siab.
- Nug Koj puas xav kom kuv siv ntau li ntau tau? , xaiv "tau" tshwj tsis yog tias koj paub
- Nug Nws puas yog nws xav sim txuas rau Internet? , sau "yog" thiab.