Bi o ṣe le ṣe idanimọ awọn adirẹsi imeeli pẹlu Perl

Ṣe o wulo, ati pe yoo ṣiṣẹ? Ti o ba gba tabi lo awọn adirẹsi imeeli nibikibi ninu awọn iwe afọwọkọ Perl rẹ ati awọn eto, o le gba ọpọlọpọ adirẹsi ti ko ṣiṣẹ. Ẹnikan le ni lẹta kan ninu orukọ ìkápá naa , ẹlomiiran le ni awọn ohun ti a ko ni idiwọ pupọ.

Ohunkohun ti awọn idi fun aiṣedede rẹ, o fẹ lati gba adirẹsi ti o bajẹ - lati fa olumulo lati tun-tẹ boya, tabi lati yago fun fifiranṣẹ imeeli ti o ni daju lati lọ si ibi kankan.

Ni Perl, o le ṣe idaniloju ikosile deedee, dajudaju; tabi o yipada si module ti o ni ọwọ ti o ti ni ọkan ti a kọ sinu ati o le ṣayẹwo awọn orukọ ìkápá, ju.

Wulo awọn adirẹsi imeeli pẹlu Perl

Lati ṣayẹwo awọn adirẹsi imeeli fun itọju daradara ati ifarahan ni akọsilẹ Perl tabi eto:

Imeeli: Ifiwe Adirẹsi Adirẹsi Adirẹsi Adirẹsi Imeeli Awọn Apeere Ijẹrisi

Ti ṣe pe $ email_address ni adiresi naa lati wa ni ṣayẹwo, o le ṣayẹwo otitọ rẹ nipa lilo:

#! / usr / bin / perl use Email :: Valid $ email_address = 'me@@ example.com'; ti o ba ti (Imeeli- Valid-> adirẹsi ($ email_address)) {# Adirẹsi imeeli jẹ wulo} miran {# Adirẹsi imeeli ko wulo}

O tun le ni Imeeli :: Ṣayẹwo ṣayẹwo fun awọn ibugbe oke-ipele ti o wulo (rii daju pe ".com", ".net", ".cn" tabi orukọ ašẹ miiran ti o wa ni adiresi imeeli naa ni opin pupọ). Rii daju pe Apapọ :: Agbegbe :: TLD ti fi sori ẹrọ.

#! / usr / bin / perl use Email :: Valid $ email_address = 'me@@ example.com'; ti o ba ti (Email :: Valid-> adirẹsi (-address => $ email_address, -tldcheck => 1)) {# Adirẹsi imeeli jẹ wulo} miran {# Adirẹsi imeeli ko wulo}

Fi Imeeli sii: Module Perl Modid

Lati ṣe iṣẹ rẹ pẹlu Perl pẹlu Imeeli :: Ifilelẹ module fun ṣatunṣe atunṣe adiresi imeeli: