Dasar CGI - Perl
Di tulisan ini, kita akan belajar mengenai bahasa pemrograman Perl dan pemakaiannya di CGI. Fungsi CGI adalah membuat sebuah halaman web menjadi lebih interaktif. Jika kita melihat sebuah buku tamu, counter pada sebuah halaman web, berarti site tersebut menggunakan CGI.
Variabel pada Perl
Ada tiga macam variabel pada Perl, yaitu scalars, arrays dan hashes:
- Scalars
Variabel ini menyimpan hanya satu nilai. Variabel ini dimulai dengan tanda $.
$ayam = 1;
$makanan= “ayam”;
$Harga= 3.43241;
$makanan= “ayam”;
$Harga= 3.43241;
Kita tidak perlu mendefinisikan jenis variabelnya (string, integer dll), kita tinggal langsung masukkan. Kita juga bisa menggabungkan variabel variabel tersebut.
Baris pertama menunjukkan lokasi program Perl anda. Bisa anda cari dengan mengetikkan locate perl di prompt.. Fungsi print adalah untuk menampilkan di layar. \n berarti ganti baris. Baris keempat memerintahkan program untuk menunggu input dari pemakai, dan hasil inputnya akan diletakkan di variabel $nama. Fungsi chomp adalah untuk menghilangkan karakter “enter” ketika kita memasukkan input.
#!usr/bin/perl
$tujuan = “Palembang”;
print “Boleh tahu nama anda ? “;
$nama =;
chomp ($nama);
print “Halo $nama. Silahkan pergi ke $tujuan\n”;
$tujuan = “Palembang”;
print “Boleh tahu nama anda ? “;
$nama =
chomp ($nama);
print “Halo $nama. Silahkan pergi ke $tujuan\n”;
Baris pertama menunjukkan lokasi program Perl anda. Bisa anda cari dengan mengetikkan locate perl di prompt.. Fungsi print adalah untuk menampilkan di layar. \n berarti ganti baris. Baris keempat memerintahkan program untuk menunggu input dari pemakai, dan hasil inputnya akan diletakkan di variabel $nama. Fungsi chomp adalah untuk menghilangkan karakter “enter” ketika kita memasukkan input.
- Arrays
Variabel ini menyimpan daftar nilai-nilai, jadi lebih dari satu. Variabel ini dimulai dengan tanda @.
#!usr/bin/perl
@makanan = (“ayam”,”tekwan”,”pempek”);
print “$makanan[0]\n”;
print “$makanan[2]\n”;
foreach $i (@makanan) { print “$i\n”; }
@makanan = (“ayam”,”tekwan”,”pempek”);
print “$makanan[0]\n”;
print “$makanan[2]\n”;
foreach $i (@makanan) { print “$i\n”; }
Nilai pada variabel arrays dimulai dengan 0. Fungsi foreach pada baris terakhir adalah membaca tiap nilai dari variabel @makanan dan mengeksekusi perintah di dalam tanda {}.
Ada beberapa fungsi untuk memanipulasi variabel arrays:
- pop(@makanan): Mengeluarkan nilai terakhir, yaitu pempek. Isi @makanan tinggal ayam dan tekwan.
- shift(@makanan): Mengeluarkan nilai pertama, yaitu ayam.
- push(@makanan,”coklat”): Menambahkan coklat pada isi @makanan.
- sort(@makanan) : Urutkan sesuai alfabet.
- reverse(@makanan): Kebalikan sort.
- scalar(@makanan) : Untuk mengetahui jumlah nilai yang ada di dalam variabel.
- join(@makanan): Menjadikan variabel scalar, dengan dipisahkan koma.
Perhatikan Contoh berikut:
#!usr/bin/perl
@makanan = (“ayam”,”telo”,”celeng”);
$a = shift(@makanan);
@urut = sort(@makanan);
$b = scalar(@makanan);
$c = join(@makanan);
print “Banyaknya isi variabel makanan adalah $b buah\n”;
print “$c”;
@makanan = (“ayam”,”telo”,”celeng”);
$a = shift(@makanan);
@urut = sort(@makanan);
$b = scalar(@makanan);
$c = join(@makanan);
print “Banyaknya isi variabel makanan adalah $b buah\n”;
print “$c”;
- Hashes
Berisi pasangan variabel. Dimulai dengan tanda %
#!usr/bin/perl%
makanan = ("Yanue" => "ayam", "Ainul" => "tekwan", "Ahsan" => "pempek");
print "Content-type:text/html\n\n";
print <<EOF;
<html>
<head>
<title>Contoh CGI</title>
</head>
<body>
EOF
foreach $i (keys %makanan) {
print "makanannya $i adalah $makanan{$i}<br>\n";
}
print "$makanan{'Yanue'}\n";
print<<Akhir;
</body>
</html>
Baris kedua merupakan deklarasi variabel hashes. Yanue pasangannya adalah ayam, Ainul dengan tekwan dan Ahsan dengan pempek. Baris ketiga menunjukkan bahwa keluarannya adalah berupa file html (akan ditampilkan di web). Baris keempat memerintahkan Perl untuk menampilkan baris-baris selanjutnya apa adanya sampai ketemu kata Isi Tulisan (bisa diganti-ganti). Pada fungsi foreach kita memakai fungsi keys, yang akan menghasilkan nilai-nilai pertama, yaitu Yanue, Ainul dan Ahsan.
#!usr/bin/perl%
makanan = ("Yanue" => "ayam", "Ainul" => "tekwan", "Ahsan" => "pempek");
print "Content-type:text/html\n\n";
print <<EOF;
<html>
<head>
<title>Contoh CGI</title>
</head>
<body>
EOF
foreach $i (keys %makanan) {
print "makanannya $i adalah $makanan{$i}<br>\n";
}
print "$makanan{'Yanue'}\n";
print<<Akhir;
</body>
</html>
makanan = ("Yanue" => "ayam", "Ainul" => "tekwan", "Ahsan" => "pempek");
print "Content-type:text/html\n\n";
print <<EOF;
<html>
<head>
<title>Contoh CGI</title>
</head>
<body>
EOF
foreach $i (keys %makanan) {
print "makanannya $i adalah $makanan{$i}<br>\n";
}
print "$makanan{'Yanue'}\n";
print<<Akhir;
</body>
</html>
0 Comments