Indlela Yokuqinisekisa Amakheli E-imeyili nge-Perl

Ingabe iyasebenza, futhi ingabe iyosebenza? Uma uqoqa noma usebenzise amakheli we-imeyili noma yikuphi kuma-scripts akho nezinhlelo zakho ze-Perl, kungenzeka ukuthi uqoqe amakheli amaningi angasebenzi. Umuntu angase alahlekelwe incwadi egameni lesizinda , omunye angase abe nomlingiswa ongavunyelwe kakhulu.

Kungakhathaliseki ukuthi yiziphi izizathu zokungafaneleki kwayo, ufuna ukubamba ikheli eliphukile - ukukhuthaza umsebenzisi ukuba angene kabusha mhlawumbe, noma agweme ukuthumela i-imeyili okuqinisekile ukuthi ayikho ndawo.

E-Perl, ungadonsa inkulumo ejwayelekile ejwayelekile, yebo; noma uvula imenyu ephathekayo esevele eyakhelwe ngaphakathi futhi ingabheka amagama wesizinda, futhi.

Qinisekisa Amakheli E-imeyili nge-Perl

Ukuhlola amakheli e-imeyli okwakhiwa kahle nokusebenza okusemthethweni noma kuhlelo lwePerl:

I-imeyli :: Izibonelo zokuqinisekisa ikheli le-imeyili

Ucabanga ukuthi i-imeyili ye-imeyili_address iphethe ikheli elizohlolwa, ungabheka ukufaneleka kwayo usebenzisa:

Sebenzisa i-imeyili ye-#! / usr / bin / perl :: I-Valid $ email_address = 'me @@ example.com'; uma (i-imeyili :: i-Valid-> ikheli (i-email_address)) {# Ikheli le-imeyili livumelekile} ngaphandle {# Ikheli le-imeyili alivumelekile}

Ungase futhi ube ne-Imeyili :: Ukuhlola okuvumelekile kwezizinda eziphezulu eziphezulu (ukuqinisekisa ukuthi ".com", ".net", ".cn" noma elinye igama lesizinda elivumelekile liphela ekupheleni kwekheli le-imeyili). Qiniseka ukuthi i-Net :: Domain :: TLD module ifakiwe.

Sebenzisa i-imeyili ye-#! / usr / bin / perl :: I-Valid $ email_address = 'me @@ example.com'; uma (i-imeyili :: Valid-> ikheli (-address => $ email_address, -tldcheck => 1)) {# Ikheli le-imeyili livumelekile} ngaphandle {# Ikheli le-imeyili alivumelekile}

Faka i-imeyili :: I-Valid Perl Module

Ukuze uhlomise ukufakwa kwakho kwe-Perl nge-imeyili :: Imodi evumelekile yokuqinisekisa ikheli le-imeyili elungile: