האם זה תקף, וזה יעבוד? אם תאסוף או תשתמש בכתובות דוא"ל בכל מקום בסקריפטים והתוכניות שלך ב- Perl, תוכל לאסוף כתובות רבות שאינן פועלות. אחד עלול חוסר מכתב שם תחום , אחר יכול להיות בעל אופי לא מורשה יותר מדי.
יהיו אשר יהיו הסיבות לנכות שלה, אתה רוצה לתפוס את הכתובת השבורה - כדי להנחות את המשתמש להיכנס מחדש אולי, או כדי למנוע שליחת דוא"ל זה בטוח ללכת לשום מקום.
בפרל, אתה יכול לבטא ביטוי רגיל מסובך, כמובן; או שאתה פונה מודול שימושי כי כבר יש אחד בנוי יכול לבדוק שמות תחום, יותר מדי.
אימות כתובות דוא"ל עם Perl
כדי לבדוק כתובות אימייל לגבי התקינות והתוקף של קובץ Script או Perl של Perl:
- בנה אימות דוא"ל לקוד HTML אם יש לך משתמשים להקליד כתובות דוא"ל לטופס אינטרנט.
- השתמש בדוא"ל :: Valid-> address ('') מתוך מודול האימייל :: Valid CPAN Perl; ראה להלן פרטים, התקנה ודוגמאות.
דוא"ל :: Validation כתובת דוא"ל אימות דוגמאות
בהנחה ש- $ email_address מחזיק את הכתובת לבדיקה, תוכל לבדוק את תוקפו באמצעות:
#! / usr / bin / perl השתמש בדוא"ל :: Valid $ email_address = 'me @@ example.com'; אם (דוא"ל :: Valid-> כתובת ($ email_address)) {# כתובת הדוא"ל חוקית} אחר {# כתובת הדוא"ל אינה חוקית}אתה יכול גם דוא"ל :: אימות תקף עבור דומיין ברמה העליונה חוקי (לוודא ". Com", ".net", ".cn" או שם תחום חוקי אחר הוא בסוף מאוד של כתובת הדוא"ל). ודא שהמודול Net :: Domain :: TLD מותקן.
#! / usr / bin / perl השתמש בדוא"ל :: Valid $ email_address = 'me @@ example.com'; אם (דוא"ל :: Valid-> כתובת (-address => $ email_address, -tldcheck => 1)) {# כתובת הדוא"ל תקפה} אחר {# כתובת האימייל אינה חוקית}התקן את דוא"ל :: Valid Perl Module
כדי לצייד את התקנת ה- Perl שלך באמצעות המודול Email :: Valid לאימות תקינות כתובת הדואר האלקטרוני:
- פתח שורת פקודה.
- תחת Mac ו- Linux, פתח את היישום Terminal, לדוגמה.
- הקלד sudo perl -MCPAN -e 'התקן דוא"ל :: Valid' (Mac ו- Linux) או Perl -MCPAN -e 'התקן דוא"ל :: תקף'.
- הקש על Enter .
- הזן את סיסמת המשתמש העלולה ולחץ על Enter אם תתבקש לעשות זאת.
- נשאל האם אתה רוצה אותי להגדיר באופן אוטומטי ככל האפשר? , בחר "כן", אלא אם כן אתה יודע
- נשאל האם זה בסדר לנסות להתחבר לאינטרנט? , הזן "כן" גם כן.