Miyuu jiraa, oo shaqeyn doonaa? Haddii aad ururiso ama isticmaasho cinwaanada emailka meel kasta oo ka mid ah qoraallada iyo barnaamijyada Perl, waxaa suura gal ah inaad ururiso cinwaano badan oo aan shaqayn. Mid waxaa laga yaabaa inaysan lahayn warqad magaca domainka ah , mid kale ayaa laga yaabaa inuu leeyahay dabeecad aan la diidin.
Wax kasta oo ay sabab u tahay inay shaqeyn waayaan, waxaad dooneysaa inaad soo qabato cinwaanka jaban - si loo weydiisto isticmaalaha inuu dib ugu soo galo, ama inuu iska ilaaliyo diritaanka email inuu hubo inaan meelna tegin.
In Perl, waxaad isku dayi kartaa hadal cad oo adag, dabcan; ama aad u jeestay habka loo isticmaalo oo horayba u jirey mid ka mid ah dhismaha oo la hubin karo magacyada domain, sidoo kale.
Xaqiijinta cinwaannada Emailka ee Perl
Si aad u eegto cinwaannada emailka ee si fiican loo qaabeeyey iyo saxsanaanta qoraallada Perl ama barnaamijka:
- Ku dhaji email lambar aqoonsi HTML ah haddii aad isticmaalaysid cinwaanada emailka ee foomka webka.
- Isticmaal Email * Valid-> cinwaanka ('') laga soo bilaabo Emailka :: Qalabka CPI ee ku haboon; eeg hoosta faahfaahinta, rakibidda iyo tusaalooyinka.
Email :: Xaqiijinta Aqoonsiga Emailka Tusaaleyaal
Qiimeeyaha $ email_address waxay hayaan cinwaanka si loo eego, waad ka hubin kartaa ansaxinta iyadoo la isticmaalayo:
#! / usr / bin / perl isticmaalka Email :: Valid $ email_address = 'me @@ example.com'; haddii (Email: Valid-> cinwaanka ($ email_address)) {# Cinwaanka emailku waa mid ansax ah} kale {# Cinwaanka emailka ma shaqeynayo}Waxaad sidoo kale haysan kartaa Emailka: Caddeyn sax ah oo loogu talagalay domains heer sare ah (hubin ".com", ".net", ".cn" ama magac domain kale oo ansax ah waa cinwaanka emailka ugu dambeyn). Xaqiiji in nidaamka Net :: Domain :: TLD-da lagu rakibay.
#! / usr / bin / perl isticmaalka Email :: Valid $ email_address = 'me @@ example.com'; haddii (Email :: Valid-> cinwaanka (-address => $ email_address, -tldcheck => 1)) {# Cinwaanka emailku waa mid ansax ah} else {# emailka ma shaqeynayo}Ku rakib emailka :: Module Valid Perl
Si aad u qalabayso rakibaaddaada Perl emailka ah * Module valid for validation cinwaanka email sax ah:
- Furfuris taliska.
- Under Mac iyo Linux, tusaale ahaan codsiga Terminal furan.
- Nooc sudho perl -MCPAN -e 'ku rakibto Email :: Valid' (Mac iyo Linux) ama perl -MCPAN -e 'ku rakibto Email :: Valid'.
- Ku qor Enter .
- Gali erayga sirta ah ee userka iyo saxaafad ku qor hadii ay dhacdo.
- Waydii Ma jeclaan laheyd inaan si toos ah ugu shaqeyno? , dooro "haa" ilaa aad ka ogaato
- Weydiin Wey tahay inaad isku daydo inaad isku xirto internetka? , geli "haa" iyo sidoo kale.