Adakah ia sah, dan adakah ia berfungsi? Jika anda mengumpul atau menggunakan alamat e-mel di mana-mana skrip dan program Perl anda, anda mungkin mengumpul banyak alamat yang tidak berfungsi. Satu mungkin kekurangan surat dalam nama domain , yang lain mungkin mempunyai karakter yang tidak dibenarkan.
Walau apa pun alasan ketidaksahihannya, anda mahu menangkap alamat yang rosak - untuk meminta pengguna memasukkan semula mungkin, atau untuk mengelakkan menghantar e-mel yang pasti tidak pergi ke mana-mana.
Dalam Perl, anda boleh mencipta ungkapan biasa rumit, sudah tentu; atau anda beralih kepada modul berguna yang sudah ada yang dibina masuk dan boleh menyemak nama domain juga.
Mengesahkan Alamat E-mel dengan Perl
Untuk menyemak alamat e-mel untuk kebaikan dan kesahan dalam skrip atau program Perl:
- Bina pengesahan e-mel ke dalam kod HTML jika anda mempunyai pengguna menaip alamat e-mel ke dalam bentuk web.
- Gunakan E-mel :: Valid-> alamat ('') dari E-mel :: Valid CPAN Perl modul; lihat di bawah untuk butiran, pemasangan dan contoh.
E-mel :: Contoh Pengesahan Alamat E-mel Sah
Dengan mengandaikan $ email_address memegang alamat yang hendak diperiksa, anda boleh memeriksa kesahihannya menggunakan:
#! / usr / bin / perl menggunakan Email :: Valid $ email_address = 'me @@ example.com'; jika alamat e-mel :: Sah -> ($ email_address)) {# Alamat e-mel sah} else {# Alamat e-mel tidak sah}Anda juga boleh mempunyai E-mel :: Semakan cek untuk domain peringkat teratas yang sah (memastikan ".com", ".net", ".cn" atau nama domain lain yang sah berada di alamat akhir e-mel). Pastikan modul Net :: Domain :: TLD dipasang.
#! / usr / bin / perl menggunakan Email :: Valid $ email_address = 'me @@ example.com'; jika (Alamat E-mel :: Valid-> alamat (-address => $ email_address, -tldcheck => 1)) {# Alamat e-mel sah} lain {# Alamat e-mel tidak sah}Pasang E-mel :: Modul Sah Perl
Untuk melengkapkan pemasangan perl anda dengan E-mel :: Modul sah untuk mengesahkan kebenaran alamat e-mel:
- Buka arahan arahan.
- Di bawah Mac dan Linux, buka aplikasi Terminal, sebagai contoh.
- Ketik sudo perl -MCPAN -e 'pasang Email :: Valid' (Mac dan Linux) atau perl -MCPAN -e 'install Email :: Valid'.
- Tekan Enter .
- Masukkan kata laluan pengguna super dan tekan Enter jika digesa.
- Ditanya Adakah anda mahu saya mengkonfigurasi sebanyak mungkin secara automatik? , pilih "ya" melainkan anda tahu
- Ditanya Adakah ia OK untuk cuba menyambung ke Internet? , masukkan "ya" juga.