Me pehea te Whakamana i nga Wāhitau Īmēra me Perl

He tika, a ka mahi? Ki te kohikohi koe, ki te whakamahi ranei i nga wahitau īmēra ki hea i roto i nga papanga me nga hōtaka Perl, ka kohikohi koe i nga maha o nga wāhitau e kore e mahi. Kaore tetahi i te reta i roto i te ingoa rohe , ko tetahi atu kaore pea i te ahua o te aukati.

Ko nga take katoa mo te whaikorero, ka hiahia koe ki te hopu i te wahitau pakaru - ki te akiaki i te kaiwhakamahi ki te whakauru ano pea, ki te karo ranei i te tuku i tetahi īmēra kaore e haere ki tetahi wahi.

I Perl, ka taea e koe te whakatau i tetahi korero whakaari pakeke, o te akoranga; ka tahuri ranei koe ki tetahi kōwae whaitake kua oti te hanga i roto, ka taea hoki te tirotiro i nga ingoa rohe.

Whakamanahia nga Wāhitau Īmēra ki Perl

Hei tirohia i nga wahitau īmēra mo te pai-hanga me te whaimana i roto i te tuhinga a Perl ranei:

Īmēra :: Ngā Wāhitau Whakaaetanga Wāhitau Īmēra Whaimana

Ki te whakaarohia e $ email_address te takiuru kia tirohia, ka taea e koe te tirotiro i tona whaimana ma te:

#! / usr / bin / perl whakamahi Īmēra :: Whaimana $ email_address = 'me @@ example.com'; mēnā (Īmēra :: Whakauru-> wāhitau ($ email_address)) {# Ko te wāhitau īmēra he whaimana} atu {# Kei te whaimana te wāhitau īmēra}

Ka taea hoki e koe te Īmēra :: Takia whaimana mo nga rohe o runga-taumata tika (kia mohio ".com", ".net", ".cn" ranei tetahi ingoa rohe whaimana i te mutunga o te wahitau īmēra). Tirohia te Net :: Domain :: TLD kua whakaurua.

#! / usr / bin / perl whakamahi Īmēra :: Whaimana $ email_address = 'me @@ example.com'; ki te (Īmēra :: Whakauru-> wāhitau (-address => $ email_address, -tldcheck => 1)) {# Ko te wāhitau īmēra he whaimana} atu {# Kāore te wāhitau īmēra e whaimana ana}

Tāutahia te Īmēra :: Paerewa Perl Mod

Hei whakarato i to whakaputanga Perl ki te Īmēra :: Motuhake whakamana mo te whakamana i te tika o te wāhitau īmēra: