Info Computer & Technology

Apakah anda seorang yang mempunyai keahlian dalam bidang coding ? Dan apakah anda sering memakai perl ? Kalau iya maka anda tidak salah untuk membaca tulisan pendek tentang module perl yang disebut Mail::CheckUser.
Perl module ini sangat praktis sekali bagi anda yang sering melakukan pengecekan apakah sebuah email address itu benar-benar ada atau tidak ada. Misalnya saja dalam pengisian form, sering ada kolom isian tentang email address. Nah ketika seseorang memasukkan email addressnya, kita perlu mengecek apakah email addres itu valid atau tidak.

Mail::CheckUser dapat melakukan pengecekan dengan melakukan sambungan ke email server, dan melakukan pengecekan apakah email address itu benar-benar ada atau tidak. Akan tetapi semua ini tergantung dari jenis email server juga. Terkadang ada email server yang langsung memberikan respon bahwa email address itu ada, padahal tidak ada.
Module Mail::CheckUser ini dapat anda download di cpan.org, dan cara penginstalannya pun sangat mudah sekali.
Dalam kesempatan ini penulis akan tampilkan script mudah dalam penggunaan module ini. Berikut adalah script kecil untuk mengecek apakah nilai dari $email_addr adalah sebuah email address yang mempunyai struktur yang benar atau tidak.

[sourcecode lang='php'] use Mail::CheckUser qw(check_email);
my $ok = check_email($email_addr);[/sourcecode]

Berikut ini adalah untuk mengecek apakah domain di email address valid atau tidak.

[sourcecode lang='php'] use Mail::CheckUser qw(:constants check_email last_check)
my $ok = check_email($email_addr);
print “DNS timeout\n”
if last_check()->{code} == CU_DNS_TIMEOUT;[/sourcecode]

Dan berikut ini adalah untuk mengecek apakah email address benar-benar ada atau tidak. Perl akan melakukan sambungan ke server, dan mengecek apakah email address mempunyai mailbox apa tidak.

[sourcecode lang='php'] use Mail::CheckUser;
my $res = Mail::CheckUser::check_email($email_addr);[/sourcecode]

Cukup mudah bukan ? silakan mencoba!!!

Tags: module, Pemrograman, perl