Uneg - Uneg Ku…

Beberapa hari yang lalu ada temen tanya-tanya tentang mailer dengan Perl, Ehmm… untuk menjawab pertanyaan tersebut maka saya cuma bisa nunjukkan scriptnya seperti dibawah ini.

#!/usr/bin/perl —

open MAIL,”|/usr/sbin/sendmail -t”;
print MAIL “FROM: $mailFrom \n”;
print MAIL “TO: $mailTo\n”;
print MAIL “Subject: Perl Memang Ok!\n”;
print MAIL “MIME-Version: 1.0\n”;
print MAIL “Content-type: text/plain; charset=ISO-2022-JP\n”;
print MAIL “Content-Transfer-Encoding: 7bit\n”;
print MAIL “——————————————————–\n”;
print MAIL “Jangan Kaget, Aku cuma tes apa yang aku kasih tahu lewat YM tadi siang. From:johan \n”;
print MAIL “——————————————————–\n”;
close (MAIL);

Dengan menggunkan script Perl yang sederhana diatas kita sudah bisa mengirimkan email dengan menggunakan sendmail tanpa melalui email clien. Karena langsung menggunakan sistem SMTP maka pengirim dapat memalsukan alamat emailnya my $mailFrom = ‘halim@umm.ac.id’; bisa di ganti dengan alamat yang diinginkan misal popo@yahoo.com, nah karena begitu mudahnya memalsukan alamat email pengirim maka kita sebagai pengguna email sudah seharusnya berhati - hati dan tidak langsung terpikat dengan email yang isinya rayuan” ataupun yang laiinya, soalnya siapa tahu itu kiriman dari si pengirim email palsu.

Pertama kali belajar perl, aku merasa canggung karena dalam benak saya perl tidak sepopuler program-program lainnya sperti VB, PHP, Java Dll. Karena di tempat kerja selalu menggunakan Perl untuk pemrogaman WEB maka mau tidak mau aku harus dikit demi sedikit belajar Perl. Waktu belajar Perl aku awali dengan membaca-baca tutorial berbahasa indonesia yang ada di alamat http://id.wikipedia.org/wiki/Perl, namun karena tutorial Perl yang berbahasa indonesia sedikit sekali maka saya mulai mencari tutorial Perl yang menggunakan bahasa inggris. Mengutip kata-kata yang ada di http://id.wikipedia.org/wiki/Perl Perl adalah bahasa scripting yang dimulai oleh Larry Wall. Penggunaannya ditemui secara luas untuk CGI (Common Gateway Interface) dan bioinformatika karena fasilitas pattern matching-nya. Versi terakhir adalah versi 5, dan versi 6 sedang dalam tahap pengembangan. Perl tersedia dalam versi untuk berbagai sistem operasi seperti UNIX (termasuk Linux dan Mac OS X), Windows dan BeOS. Setelah sekitar 4 bulanan berkelana dengan Perl aku sudah mulai merasakan nikmatnya pake Perl. Menurut aku Perl itu bagaikan sebatang kayu yang belum di olah, jadi baik buruknya Perl tergantung pada sitangan-tangan pengguna Perl. Perl bisa digunakan untuk programing berbasis web maupun tidak. Salah satu yang bikin membuat aku jatuh hati pada perl yaitu tentang REGEX nya dan scripting untuk sistem administrasi.