Энэ нь хүчин төгөлдөр байна уу, энэ нь ажиллах уу? Хэрэв та өөрийн Perl классууд болон програмууд дотроо имэйл хаягуудыг цуглуулж эсвэл ашиглаж байгаа бол ажиллахгүй олон хаягуудыг цуглуулах боломжтой. Нэг нь домэйн нэрээр захидал байхгїй, нєгєє нь хїлээн зєвшєєрєгдсєн шинж чанар хэтэрхий их байдаг.
Хэдийгээр хүчингүйдлийн шалтгааныг үл харгалзан, та эвдэрсэн хаягаа олохыг хүсч байгаа бол хэрэглэгчийг дахин оруулахыг хүсэх эсвэл хүссэн имэйлээ илгээхээс зайлсхийх хэрэгтэй.
Perl дотор та нарийн түвэгтэй илэрхийлэл бүтээж болно. эсвэл та аль хэдийн бүтээгдсэн, боломжтой домэйн нэрийг шалгаж болох гарын модуль уруу хандах.
Perl ашиглан имэйл хаягийг баталгаажуулна
Perl-тэй эсвэл програмын сайн төлөвшил болон хүчин төгөлдөр эсэхийг имэйл хаягууд шалгахын тулд:
- Хэрэв та хэрэглэгчид имэйл хаягуудыг веб хэлбэрээр оруулах юм бол и-мэйлийн баталгаажуулалтыг HTML код дээр бий болгоно.
- И-мэйлийг ашиглах :: Имэйл-и-мэйл хаяг ('') И-мэйл хаяг :: Valid CPAN Perl модуль; Дэлгэрэнгүй мэдээллийг доороос үзнэ үү.
Email: Valid Email Address Validation Examples
$ 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'; хэрэв (Email: Valid-> address (-address => $ email_address, -tldcheck => 1)) {# Имэйл хаяг хүчинтэй байна} өөр {{Имэйл хаяг хүчин төгөлдөр биш байна}Имэйлийг суулгах нь: Valid Perl Module
Ил Имэйлтэй Perl суулгахын тулд: Имэйл хаягыг зөвөөр баталгаажуулах нь зөв модуль:
- Тушаал хүлээх мөрийг нээх.
- Mac болон Линукс дээр терминалын програмыг нээнэ үү.
- Sudo perl -MCPAN -e 'install Email :: Valid' (Mac ба Linux) эсвэл perl -MCPAN -e 'install Email :: Valid'.
- Enter дарна уу .
- Супер хэрэглэгчийн нууц үгийг оруулаад Enter дарж асууна.
- Асуусан Та надад аль болох автоматаар тохируулахыг хүсч байна уу? , мэдэхгүй л бол "тийм" гэж сонгоорой
- Асуусан Интернетэд холбогдохыг оролдох нь зүгээр үү? , "тийм" гэж оруулна уу.