ал жарактуу болуп саналат, жана ал иштейт? Сиз чогултууга же болбосо сиздин Perl ариби менен программаларга электрондук почта даректерин колдонуу болсо, анда, балким, иш эмес, көп даректерин чогултабыз. Бир кат жетишпеши мүмкүн домендик аты , дагы бир тыюу мүнөзү өтө көп болушу мүмкүн.
Балким, кайра кирүүгө колдонуучуну түрткү, же эч барып ко электрондук почта аркылуу кат жөнөтүп качуу - анын жараксыздыгынын себеби кандай болбосун, сен сынып дареги кармап келет.
Perl, сиз албетте, татаал үзгүлтүксүз сөздөрдү ойлоп болот; же сиз буга чейин бир-жылы курулган бир колдо модулду кайрылып, да, домендик аталыштарды текшере аласыз.
Perl менен электрондук почта даректери Далилдөө
бир Perl арибинде же программанын жакшы formedness жана колдонуу үчүн электрондук почта дарегин текшерүү үчүн:
- HTML кодексине электрондук почта текшерүүнү Build сиз желе түрүндө кирген колдонуучулар түрү почта даректерин бар болсо.
- Колдонуу Email :: Valid-> дарегин ( '') плюста келген :: Valid CPAN Perl сынак; маалымат алуу, орнотуу жана мисалдар келтирилген.
Email :: Жарактуу электрондук почта дарегин Validation мисалдар
$ EMAIL_ADDRESS алдыдагы текшерүү керек дареги өткөрдү, сиз колдонуп, анын негиздүүлүгүн текшерүүгө болот:
! # / Окудум / бин / Perl пайдалануу Email :: Valid $ EMAIL_ADDRESS = 'Менин @@ example.com'; эгер (Email :: Valid-> дареги ($ EMAIL_ADDRESS)) башка {# электрондук почта дареги жарактуу} {# электрондук почта дареги жарактуу эмес}Ошондой эле Email болушу мүмкүн :: жарактуу жогорку даражадагы домендерди жарактуу текшерүү ( ".com" жагарын баамдап билип ", .net", ".cn" же башка жарактуу домен аты электрондук почта дареги, анын акырында болуп саналат). Net баамдагыла :: домен :: TLD модулу орнотулган.
! # / Окудум / бин / Perl пайдалануу Email :: Valid $ EMAIL_ADDRESS = 'Менин @@ example.com'; эгер (Email :: Valid-> дареги (ээсинин => $ EMAIL_ADDRESS, -tldcheck => 1)) башка {# электрондук почта дареги жарактуу} {# электрондук почта дареги жарактуу эмес}E-mail орнотуу :: Valid Perl Module
электрондук почта дареги тууралыгын текшерүү үчүн Email :: Valid модулу менен Perl орнотуу жабдуу үчүн:
- бир команда ачуу.
- Mac жана Linux ылайык, Терминал арыз көрүү, мисалы.
- Тип Sudo Perl -MCPAN -E 'E-mail орнотуу :: Valid "(Mac жана Linux) же Perl -MCPAN -e" Email :: Valid орнотуу ".
- Пресс кириш.
- Суралган кезде, супер колдонуучунун сырсөзүн жана басма сөз кириш.
- Берилген мени жазуусу мүмкүн болушунча көп ырастап келеби? , Сен билбей туруп "ооба", тандап алган
- Деген суроого ал OK интернетке байланышууга аракет кылуу туурабы? , Ошондой эле, "ооба" кирет.