Skrip CGI bisa sesederhana atau serumit yang Anda inginkan. Itu bisa di Perl, Jawa, Python atau lainnya bahasa pemrograman. Pada intinya, aplikasi CGI hanya mengambil permintaan melalui HTTP (biasanya browser web) dan mengembalikan HTML. Mari kita lihat Perl sederhana Halo Dunia Script CGI dan memecahnya menjadi bentuk yang paling sederhana.

 #! / usr / bin / perl
cetak "Jenis konten: teks / html \ n \ n";
cetak <




A Simple Perl CGI

Halo Dunia


HTML
keluar; 

Jika Anda menjalankan program di baris perintah, Anda akan melihat bahwa program itu melakukan apa yang Anda harapkan. Pertama, ia mencetak Jenis konten baris, lalu mencetak HTML mentah. Untuk melihatnya beraksi di browser web, Anda harus menyalin atau mengunggah skrip ke server web Anda dan memastikan izin diatur dengan benar (chmod 755 pada sistem * nix). Setelah Anda mengaturnya dengan benar, Anda harus dapat menjelajahinya dan melihat halaman yang ditampilkan langsung di server Anda.

Garis kuncinya adalah pernyataan cetak pertama:

 cetak "Jenis konten: teks / html \ n \ n"; 

Ini memberi tahu browser bahwa dokumen datang setelah keduanya baris baru akan menjadi HTML. Kamu harus kirim tajuk agar peramban tahu jenis dokumen apa yang akan datang berikutnya, dan Anda harus menyertakan garis kosong antara tajuk dan dokumen yang sebenarnya.

Setelah tajuk dikirim, tinggal mengirim dokumen HTML itu sendiri. Dalam contoh di atas, kami menggunakan dokumen-sini untuk menyederhanakan pencetakan sejumlah besar teks biasa. Tentu saja, ini benar-benar tidak berbeda dengan memiliki dokumen HTML biasa di server Anda. Kekuatan nyata menggunakan bahasa pemrograman seperti Perl untuk membuat HTML Anda datang ketika Anda menambahkan dalam beberapa pemrograman Perl mewah.

Dalam contoh berikut, mari kita ambil bagian dari ini skrip waktu dan tanggal dan tambahkan ke halaman web Anda.

 #! / usr / bin / perl
@ bulan = qw (Jan Feb Mar Apr Mei Jun Jul Agu Sep Okt Nov Des);
@weekDays = qw (Sen Sen Sel Rab Kam Sab Sen Sab);
($ detik, $ menit, $ jam, $ dayOfMonth, $ bulan, $ yearOffset, $ dayOfWeek, $ dayOfYear, $ daylightSavings) = localtime ();
$ tahun = 1900 + $ tahunOffset;
$ theTime = "$ weekDays [$ dayOfWeek] $ bulan [$ bulan] $ dayOfMonth, $ tahun";
cetak "Jenis konten: teks / html \ n \ n";
cetak <




A Simple Perl CGI

$ theTime


HTML
keluar; 

Script CGI baru ini akan memasukkan tanggal saat ini ke halaman setiap kali script dipanggil. Dengan kata lain, itu menjadi a dinamis mendokumentasikan yang berubah seiring perubahan tanggal, bukan a statis dokumen.