วิธีการตรวจสอบที่อยู่อีเมลด้วย Perl

มันถูกต้องและมันจะทำงาน? หากคุณรวบรวมหรือใช้ที่อยู่อีเมลในสคริปต์และโปรแกรม Perl คุณอาจรวบรวมที่อยู่จำนวนมากที่ไม่ได้ผล หนึ่งอาจขาดตัวอักษรใน ชื่อโดเมน อื่นอาจมีตัวไม่ได้รับอนุญาตมากเกินไป

ไม่ว่าสาเหตุใดที่ทำให้ไม่สามารถใช้งานได้คุณต้องการจับที่อยู่เสีย - เพื่อแจ้งให้ผู้ใช้ป้อนข้อมูลใหม่หรือเพื่อหลีกเลี่ยงการส่งอีเมลที่ไม่ต้องไปไหน

ใน Perl คุณสามารถสร้างนิพจน์ทั่วไปที่ซับซ้อนได้แน่นอน หรือคุณหันไปใช้โมดูลที่มีประโยชน์ซึ่งมีอยู่แล้วและสามารถตรวจสอบชื่อโดเมนได้เช่นกัน

ตรวจสอบที่อยู่อีเมลด้วย Perl

เพื่อตรวจสอบที่อยู่อีเมลสำหรับความถูกต้องและความถูกต้องในสคริปต์หรือโปรแกรม Perl:

อีเมล :: ตัวอย่างการตรวจสอบที่อยู่อีเมลที่ถูกต้อง

สมมติว่า $ email_address เก็บที่อยู่ที่จะตรวจสอบคุณสามารถตรวจสอบความถูกต้องได้โดยใช้:

#! / usr / bin / perl use อีเมล :: Valid $ email_address = 'me @@ example.com'; if (Email :: Valid-> address ($ email_address)) {# อีเมลแอดเดรสถูกต้อง} else {# ที่อยู่อีเมลไม่ถูกต้อง}

คุณยังสามารถใช้อีเมล :: ตรวจสอบโดเมนเนมระดับบนสุดที่ถูกต้อง (ตรวจสอบให้แน่ใจว่า ".com", ".net", ".cn" หรือชื่อโดเมนที่ถูกต้องอีกอันหนึ่งอยู่ที่ท้ายอีเมลแอดเดรส) ตรวจสอบให้แน่ใจว่ามีการติดตั้งโมดูล Net :: Domain :: TLD ไว้

#! / usr / bin / perl use อีเมล :: Valid $ email_address = 'me @@ example.com'; if (Email :: Valid-> address (-address => $ email_address, -tldcheck => 1)) {# ที่อยู่อีเมลถูกต้อง} else {# ที่อยู่อีเมลไม่ถูกต้อง}

ติดตั้ง Email :: Valid Perl Module

จัดเตรียมการติดตั้ง Perl ของคุณด้วยโมดูล Email :: Valid เพื่อตรวจสอบความถูกต้องของที่อยู่อีเมล: