Mengenal Variabel Lingkungan

Tutorial Perl

1. Pendahuluan
2. Pengertian CGI
3. Syarat untuk menulis CGI
4. Contoh script Perl sederhana
5. Mengenal variable lingkungan
6. Mengirim email lewat form
7. Membuat script Tell a Friend
8. Membuat buku tamu

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) {


$keys}<br>\n"
}
print "$keys = $ENV


{

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 = 


= Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)
HTTP_CONNECTION
HTTP_USER_AGENT
  = Keep-Alive
SERVER_PORT = 80


.netHTTP_HOST = langitbiru.hypermar
t

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. 

selanjutnya »