A yw'n ddilys, a fydd yn gweithio? Os ydych chi'n casglu neu'n defnyddio cyfeiriadau e-bost yn unrhyw le yn eich sgriptiau a'ch rhaglenni Perl, efallai y byddwch yn casglu nifer o gyfeiriadau nad ydynt yn gweithio. Efallai nad oes gan un llythyr yn enw'r parth , efallai bod gan rywun gymeriad anghymwys yn ormod.
Beth bynnag yw'r rhesymau am ei annilysrwydd, rydych chi am ddal y cyfeiriad sydd wedi'i dorri - i annog y defnyddiwr i ail-gofrestru efallai, neu osgoi anfon e-bost sy'n siŵr o fynd i unrhyw le.
Yn Perl, gallwch chi fynegi mynegiant rheolaidd cymhleth, wrth gwrs; neu os ydych chi'n troi at fodiwl defnyddiol sydd eisoes wedi'i gynnwys ac yn gallu gwirio enwau parthau hefyd.
Dilyswch Gyfeiriadau E-bost gyda Perl
I wirio cyfeiriadau e-bost ar gyfer ffurfiant a dilysrwydd da mewn sgript neu raglen Perl:
- Adeiladu dilysiad e-bost yn y cod HTML os oes gennych gyfeiriadau e-bost math defnyddwyr i mewn i ffurflen we.
- Defnyddiwch E-bost :: Dilys-> cyfeiriad ('') o'r E-bost :: Modiwl CPAN Perl dilys; gweler isod am fanylion, gosodiadau ac enghreifftiau.
Ebost :: Enghreifftiau Dilysu Dilysrwydd Cyfeiriad Dilys
Gan dybio bod $ email_address yn dal y cyfeiriad i gael ei wirio, gallwch wirio ei ddilysrwydd gan ddefnyddio:
#! / usr / bin / perl yn defnyddio E-bost :: Valid $ email_address = 'me @@ example.com'; os (E-bost :: Dilys-> cyfeiriad ($ email_address)) {# Mae'r cyfeiriad e-bost yn ddilys} arall {# Nid yw'r cyfeiriad e-bost yn ddilys}Gallwch hefyd gael E-bost :: Gwirio dilys ar gyfer parthau lefel uchaf dilys (gan sicrhau bod ".com", ".net", ".cn" neu enw parth dilys arall ar ddiwedd y cyfeiriad e-bost). Gwnewch yn siŵr bod y Rhwydwaith :: Parth :: TLD wedi ei osod.
#! / usr / bin / perl yn defnyddio E-bost :: Valid $ email_address = 'me @@ example.com'; os (E-bost :: Dilys-> cyfeiriad (-address => $ email_address, -tldcheck => 1)) {# Mae'r cyfeiriad e-bost yn ddilys} arall {# Nid yw'r cyfeiriad e-bost yn ddilys}Gosod yr E-bost :: Modiwl Perl Valid
I roi eich gosodiad Perl gyda'r e-bost :: Modiwl dilys ar gyfer dilysu cywirdeb cyfeiriad e-bost:
- Agor gorchymyn yn brydlon.
- O dan Mac a Linux, agorwch y cais Terminal, er enghraifft.
- Teip sudo perl -MCPAN -e 'gosod E-bost :: Valid' (Mac a Linux) neu perl -MCPAN -e 'gosod E-bost :: Dilys'.
- Gwasgwch Enter .
- Rhowch gyfrinair uwch y defnyddiwr a gwasgwch Enter os caiff ei annog.
- Gofynnwyd A fyddech chi'n hoffi i mi ffurfweddu cymaint â phosib yn awtomatig? , dewiswch "ie" oni bai eich bod chi'n gwybod
- Gofynnwyd A yw'n iawn i geisio cysylltu â'r Rhyngrwyd? , rhowch "yes" hefyd.