Jak ověřit e-mailové adresy s Perl

Je platné a bude fungovat? Pokud shromažďujete nebo používáte e-mailové adresy kdekoli ve skriptech a programech Perl, možná sbíráte mnoho adres, které nefungují. Jeden může mít nedostatek dopisu v doménovém jménu , jiný může mít nepovolený charakter příliš mnoho.

Ať jsou důvody pro její neplatnost, nechte se dostat do chybné adresy - vyzve uživatele k opětovnému zadání, nebo aby se vyhnul odesílání e-mailu, který určitě nebude nikam.

V Perlovi můžete samozřejmě sestavit komplikovaný regulární výraz; nebo se otočíte do praktického modulu, který již má vestavěný a může také kontrolovat názvy domén.

Ověřte e-mailové adresy s Perl

Kontrola e-mailových adres pro správnost a platnost v skriptu nebo programu Perl:

• Pokud uživatelé zadávají e-mailové adresy do webového formuláře, vytvořte ověření e-mailu do kódu HTML .
• Použijte Email :: Valid-> address ('') z modulu Email :: Valid CPAN Perl; podrobnosti, instalace a příklady viz níže.

E-mail :: Platné příklady validace e-mailové adresy

Za předpokladu, že adresa $ email_address obsahuje adresu, kterou chcete zkontrolovat, můžete zkontrolovat její platnost pomocí:

#! / usr / bin / perl použijte Email :: Platný $ email_address = 'me @@ example.com'; pokud (E-mail :: Platná-> adresa ($ email_address)) {# E-mailová adresa je platná} else {# E-mailová adresa není platná}

Také můžete mít e-mail :: Platná kontrola platných domén nejvyšší úrovně (ujistěte se, že ".com", ".net", ".cn" nebo jiný platný název domény je na konečné adrese e-mailové adresy). Zkontrolujte, zda je nainstalován modul Net :: Domain :: TLD.

#! / usr / bin / perl použijte Email :: Platný $ email_address = 'me @@ example.com'; if (E-mail :: Platná-> adresa (-adresa => $ email_address, -tldcheck => 1)) {# E-mailová adresa je platná} else {# E-mailová adresa není platná}

Nainstalujte modul Email :: Valid Perl

Instalace instalace Perlu do modulu Email :: Valid pro ověření správnosti e-mailové adresy:

• Otevřete příkazový řádek.
  • Pod Mac a Linuxem otevřete například aplikaci Terminal.
• Zadejte příkaz sudo perl -MCPAN -e 'nainstalujte Email :: Valid' (Mac a Linux) nebo perl -MCPAN -e 'nainstalujte Email :: Valid'.
• Stiskněte klávesu Enter .
  • Zadejte heslo pro super uživatelské jméno a stiskněte výzvu Enter .
  • Na otázku Chcete, abych co nejvíce konfiguroval automaticky? , vyberte "ano", pokud nevíte
  • Na otázku Je správné připojit se k Internetu? , zadejte také "ano".