Чӣ тавр барои ислоҳ кардани суроғаҳои почтаи электронӣ бо Perl

Оё дуруст аст ва он кор мекунад? Агар шумо суроғаҳои почтаи электрониро дар ҷое, ки дар скриптҳо ва барномаҳои Perl навиштаед, шумо эҳтимолан суроғаҳои зиёде, ки кор намекунанд, ҷамъоварӣ ва истифода баред. Яке аз номҳо дар домейн номуайян нест , ва дигаре метавонад дорои хислатҳои беэътиноӣ бошад.

Новобаста аз сабабҳои бекор кардани он, шумо мехоҳед, ки суроғаи суроғаро боздоред - барои сари вақт бозгаштан ба корбар истифода баред ё пешгирӣ кардани фиристодани почтаи электронӣ, ки боварӣ надоред, ҷойгир кунед.

Дар Perl, шумо метавонед як изҳороти мураккаби мунтазамро ба даст оред, албатта; ё шумо ба модули боэътимоде, ки аллакай дар дохили он сохта шудааст ва метавонад домейнҳоро тафтиш кунед, низ рӯй диҳед.

Суроғаҳои почтаи электронӣ бо Perl-ро тасдиқ кунед

Барои санҷидани суроғаҳои почтаи электронӣ барои таҳия ва эътибори қонунӣ дар барномаи Perl script or program:

E-mail :: Намудҳои почтаи электронии суроғаи почтаи электронӣ

Тасаввур кунед $ email_address нишонае барои тафтиш карда мешавад, ки шумо метавонед онро истифода баред:

#! / usr / bin / perl Истифодаи Email :: Valid $ email_address = 'me @@ example.com'; агар (Email :: Valid-> адреси ($ email_address)) {{Суроғаи почтаи электронӣ эътибор дорад} {else} {# Суроғаи почтавӣ эътибор надорад}

Шумо инчунин метавонед Email дошта бошад: Санҷиши дуруст барои домейнҳои сатҳи олӣ (боварӣ ҳосил намоед, ки ".com", ".net", ".cn" ё номи домейнҳои дигар дар почтаи электронии охирин аст). Боварӣ ҳосил намоед, ки модулҳои домении Net :: Domain :: TLD насб карда шудаанд.

#! / usr / bin / perl Истифодаи Email :: Valid $ email_address = 'me @@ example.com'; агар (Email :: Valid-> суроға (-address => $ email_address, -tldcheck => 1)) {# Суроғаи почтаи электронӣ {else} {else} {# Суроғаи почтавӣ эътибор надорад}

Эҷоди почтаи электронӣ :: Module Perl Valid

Барои насб кардани компютери Perl бо почтаи электронӣ :: Модули дуруст барои тасдиқи дурустии суроғаи почтаи электронӣ: