ວິທີການກວດສອບອີເມວທີ່ມີ Perl

ມັນຖືກຕ້ອງແລະມັນຈະເຮັດວຽກໄດ້ບໍ? ຖ້າທ່ານລວບລວມຫຼືໃຊ້ທີ່ຢູ່ອີເມວຢູ່ທຸກບ່ອນໃນສະຄິບ Perl ແລະບັນດາໂຄງການຂອງທ່ານ, ທ່ານອາດຈະເກັບກໍາທີ່ຢູ່ຫຼາຍທີ່ບໍ່ເຮັດວຽກ. ຫນຶ່ງອາດຈະຂາດຈົດຫມາຍໃນ ຊື່ໂດເມນ , ຄົນອື່ນອາດມີລັກສະນະທີ່ບໍ່ອະນຸຍາດຫຼາຍເກີນໄປ.

ບໍ່ວ່າເຫດຜົນສໍາລັບການບໍ່ຖືກຕ້ອງຂອງມັນ, ທ່ານຕ້ອງການທີ່ຈະຈັບທີ່ຢູ່ຫັກ - ເພື່ອແຈ້ງໃຫ້ຜູ້ໃຊ້ສາມາດເຂົ້າໄປອີກເທື່ອຫນຶ່ງ, ຫຼືເພື່ອຫຼີກເວັ້ນການສົ່ງອີເມວທີ່ແນ່ໃຈວ່າຈະໄປບ່ອນໃດ.

ໃນ Perl, ທ່ານສາມາດສ້າງການສະແດງອອກເປັນປົກກະຕິທີ່ສັບສົນ, ແນ່ນອນ; ຫຼືທ່ານຫັນໄປຫາໂມດູນທີ່ມີປະໂຫຍດທີ່ມີແລ້ວກໍ່ສ້າງແລະສາມາດກວດເບິ່ງຊື່ໂດເມນເຊັ່ນກັນ.

Validate Email Addresses with Perl

ເພື່ອກວດເບິ່ງທີ່ຢູ່ອີເມວສໍາລັບຮູບແບບທີ່ດີແລະມີຄວາມຖືກຕ້ອງໃນ script script Perl ຫຼື:

ອີເມວ: ຕົວຢ່າງການຢືນຢັນທີ່ຖືກຕ້ອງຂອງ Email Address

ສົມມຸດວ່າ $ email_address ຖືທີ່ຢູ່ທີ່ຈະກວດສອບ, ທ່ານສາມາດກວດສອບຄວາມຖືກຕ້ອງຂອງມັນໂດຍໃຊ້:

#! / usr / bin / perl ໃຊ້ອີເມວ :: ທີ່ຖືກຕ້ອງ $ email_address = 'me @@ example.com'; ຖ້າ (Email: ທີ່ຖືກຕ້ອງ -> ທີ່ຢູ່ ($ email_address)) {# ທີ່ຢູ່ອີເມວຖືກຕ້ອງ} else {# ທີ່ຢູ່ອີເມວບໍ່ຖືກຕ້ອງ}

ນອກນັ້ນທ່ານຍັງສາມາດມີອີເມວ :: ການກວດສອບລະຫັດໂດເມນທີ່ມີລະດັບທີ່ຖືກຕ້ອງ (ໃຫ້ແນ່ໃຈວ່າ ".com", ".net", ".cn" ຫຼືຊື່ໂດເມນທີ່ຖືກຕ້ອງຢູ່ທີ່ສຸດຂອງທີ່ຢູ່ອີເມວ). ກວດສອບວ່າໂມດູນ Net :: Domain :: TLD ຖືກຕິດຕັ້ງ.

#! / usr / bin / perl ໃຊ້ອີເມວ :: ທີ່ຖືກຕ້ອງ $ email_address = 'me @@ example.com'; ຖ້າ (ອີເມວ: ທີ່ຖືກຕ້ອງ -> ທີ່ຢູ່ (-address => $ email_address, -tldcheck => 1)) {# ທີ່ຢູ່ອີເມວຖືກຕ້ອງ} else {# ທີ່ຢູ່ອີເມວບໍ່ຖືກຕ້ອງ}

ຕິດຕັ້ງອີເມວ :: ໂມດູນ Perl ທີ່ຖືກຕ້ອງ

ເພື່ອສະຫນອງການຕິດຕັ້ງ Perl ຂອງທ່ານດ້ວຍອີເມວ :: Module ທີ່ຖືກຕ້ອງສໍາລັບການກວດສອບຄວາມຖືກຕ້ອງຂອງອີເມວ: