Apakah itu sah, dan apakah itu akan berfungsi? Jika Anda mengumpulkan atau menggunakan alamat email di mana saja dalam skrip dan program Perl Anda, Anda mungkin mengumpulkan banyak alamat yang tidak berfungsi. Seseorang mungkin tidak memiliki huruf dalam nama domain , yang lain mungkin memiliki karakter yang tidak diizinkan terlalu banyak.
Apa pun alasan ketidakabsahannya, Anda ingin menangkap alamat yang rusak - untuk meminta pengguna memasukkan kembali mungkin, atau untuk menghindari mengirim email yang pasti tidak ke mana-mana.
Di Perl, Anda dapat membuat ekspresi reguler yang rumit, tentu saja; atau Anda beralih ke modul berguna yang sudah memiliki built in dan dapat memeriksa nama domain juga.
Validasi Alamat Email dengan Perl
Untuk memeriksa alamat email untuk kelengkapan dan validitas dalam suatu skrip atau program Perl:
- Bangun validasi email ke kode HTML jika Anda memiliki pengguna mengetikkan alamat email ke dalam formulir web.
- Gunakan Email :: Valid-> address ('') dari modul Email :: Valid CPAN Perl; lihat di bawah untuk detail, pemasangan, dan contoh.
Email :: Contoh Validasi Alamat Email Valid
Dengan asumsi $ email_address memegang alamat yang akan diperiksa, Anda dapat memeriksa validitasnya menggunakan:
#! / usr / bin / perl gunakan Email :: Valid $ email_address = 'me @@ example.com'; if (Email :: Valid-> address ($ email_address)) {# Alamat email valid} else {# Alamat email tidak valid}Anda juga dapat memiliki Email :: Cek valid untuk domain level teratas yang valid (pastikan ".com", ".net", ".cn" atau nama domain lain yang valid ada di alamat email paling akhir). Pastikan modul Net :: Domain :: TLD diinstal.
#! / usr / bin / perl gunakan Email :: Valid $ email_address = 'me @@ example.com'; if (Email :: Valid-> address (-address => $ email_address, -tldcheck => 1)) {# Alamat email valid} else {# Alamat email tidak valid}Instal Email :: Modul Valid Perl
Untuk melengkapi instalasi Perl Anda dengan modul Email :: Valid untuk memvalidasi kebenaran alamat email:
- Buka prompt perintah.
- Di bawah Mac dan Linux, buka aplikasi Terminal, misalnya.
- Ketik sudo perl -MCPAN -e 'install Email :: Valid' (Mac dan Linux) atau perl -MCPAN -e 'install Email :: Valid'.
- Tekan Enter .
- Masukkan kata sandi pengguna super dan tekan Enter jika diminta.
- Ditanya Apakah Anda ingin agar saya mengonfigurasikan sebanyak mungkin secara otomatis? , pilih "ya" kecuali Anda tahu
- Ditanya Apakah OK untuk mencoba terhubung ke Internet? , masukkan "ya" juga.