terdapat dua cara dalam membuat form dengan menggunakan PEerl. yaitu dengan menggunakan metode GET dan metode POST.
METODE GET :
file testget.html
<html>
<body>
<form method="get" action="cgi-bin/input.cgi">
nama : <input type="text" name="nama"><br>
alamat : <input type="text" name="alamat"><br>
<input type="submit" name="kirim" value="kirim">
<input type="reset" value="reset">
</form>
</body>
</html>
Ketikkan script dibawah ini untuk inputannya, simpan dengan nama input.cgi
#!usr/bin/perl
print "Content-type=text/html\n\n";
print <<EOF;
<html>
<head>
<title>Parsing isi variabel QUERY_STRING</title>
</head>
<body>
EOF @nilai = split(/&/,$env{'QUERY_STRING'});
foreach $i (@nilai) {
($varname, $mydata) = split(/=/,$i); print "$varname = $mydata<br>\n";
}
print "</body> </html>\n";
METODE POST
file testpost.html :
<html>
<body>
<form method="post" action="cgi-bin/form.cgi">
nama : <input type="text" name="nama"><br>
alamat : <input type="text" name="alamat"><br>
<input type="submit" name="kirim" value="kirim">
<input type="reset" value="reset"> </form>
</body>
</html>
file form.cgi :
#!/usr/bin/perl
print "Content-type:text/html\n\n";
read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
@pasangan = split(/&/, $data);
foreach $a (@pasangan) {
($nama, $nilai) = split(/=/, $a);
$nilai =~ tr/+/ /;
$nilai =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$nama} = $nilai;
}
sumber :
http://yusuf.staff.gunadarma.ac.id/Downloads/files/19085/dasar-cgi-perl.pdf