|
Tutorial Perl:
Mengenal Variabel Lingkungan
Oleh : Yohanes Nugroho
Ketika
sebuah program CGI dipanggil, maka webserver akan
menjalankannya dengan mengeset variabel lingkungan
(environment variable) yang dapat diakses oleh
program CGI tersebut. Variabel lingkungan ini
berisi informasi mengenai lingkungan tempat CGI
itu dijalankan, dan juga beberapa informasi mengenai
client yang meminta output program tersebut. Berikut
ini saya berikan sebuah contoh skrip CGI yang
akan mencetak semua nilai variabel lingkungan
yang ada. Pasanglah di server Anda, dan lihat
hasilnya.
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
foreach $keys (keys %ENV) {
print "$keys = $ENV{$keys}<br>\n"
}
Sedikit
penjelasan, %ENV adalah array assosiatif yang
berisi variabel lingkungan, dan loop foreach $keys
(keys %ENV) {...} akan menelusuri setiap isi array
tersebut.
Saya
juga sudah menginstall skrip tersebut di langitbiru.
Anda bisa mencobanya dengan mengklik http://langitbiru.hypermart.net/demos/env.pl.
Jika Anda melihat ini artikel ini secara offline,
dan tidak bisa mencoba skripnya, saya berikan
sample outputnya di sini (tidak lengkap, hanya
bagian yang menarik saja):
REMOTE_ADDR = 127.0.0.1
QUERY_STRING =
HTTP_USER_AGENT = Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)
HTTP_CONNECTION = Keep-Alive
SERVER_PORT = 80
HTTP_HOST = langitbiru.hypermart.net
Yang
di sebelah kiri tanda sama dengan (=) adalah nama
variabelnya, sedangkan yang disebelah kanan adalah
nilainya (isinya). Anda sudah melihat bahwa dari
variabel lingkungan ini Anda bisa tahu broswer apa
yang digunakan (dari HTTP_USER_AGENT) dan alamat
IP client (dari REMOTE_ADDR). Sekarang Anda bisa
membuat skrip seperti ini:
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "Browser Anda adalah: $ENV{'HTTP_USER_AGENT'}<br>";
print "IP Anda: $ENV{'REMOTE_ADDR'}<br>";
Informasi
seperti ini bisa Anda log untuk keperluan tertentu.
|
