Tutorial Perl:
Contoh script Perl sederhana
Di
bawah ini adalah sebuah contoh script Perl yang
masih sederhana :
| #!/usr/bin/perl
|
| #
Contoh script Perl sederhana |
|
print "content-type: text\html\n\n"; |
|
print "<HTML><HEAD><TITLE>Test</TITLE></HEAD>\n"; |
| print
"<BODY>Baru belajar Perl, ya\n\n"; |
| print
"</BODY></HTML>\n"; |
| exit;
|
Jika
script tersebut diletakkan pada server dan dijalankan
maka akan muncul tulisan "Baru belajar Perl, ya"
pada browser kita. Berikut ini adalah penjelasan
dari script di atas :
Baris pertama :
#!/usr/bin/perl
Baris ini memberitahu server letak interpreter
yang diperlukan untuk mengeksekusi script kita.
Letak path interpreter ini berbeda antara server
yang satu dengan yang lainnya. Jika Anda memakai
Virtual
Avenue maka letaknya adalah /usr/bin/perl
Baris kedua :
# Contoh script Perl sederhana
Baris ini adalah baris komentar. Pada Perl setiap
komentar harus di awali dengan tanda # sehingga
tulisan yang terletak di sebelah kanan tanda #
akan diabaikan oleh interpreter (kecuali pada
baris pertama).
Baris
ketiga :
print "content-type: text\html\n\n";
Baris ini disebut MIME header yang fungsinya memberitahu
server jenis informasi yang kita kirim. Dalam
contoh ini informasinya berjenis HTML/Text.
Baris keempat sampai baris keenam :
print
"<HTML><HEAD><TITLE>Test</TITLE></HEAD>\n";
print
"<BODY>Baru belajar Perl, ya\n\n";
print
"</BODY></HTML>\n";
Baris tersebut memasukkan kode-kode HTML dan menuliskan
string untuk ditampilkan pada browser.
Baris
ketujuh :
exit;
Baris ini akan memberitahu Perl interpreter bahw
skript sudah selesai. Baris ini bersifat optional,
artinya dapat dituliskan dapat juga tidak dituliskan.
| Ingat
: Setiap baris script pada Perl harus
selalu diakhiri dengan tanda titik koma. |
|
