Mo nanya perl nih...
saya punya form.html yang "action"-nya menunjuk ke skrip_atu.pl
di skrip_atu.pl ini, saya berhasil menampilkan value yang di passing
dari form.html
saya mencoba mempassing kembali semua value tersebut ke skrip_dua.pl dan
gagal... :-(
skrip_atu.pl
============
#!/usr/bin/perl
if ($ENV{'REQUEST_METHOD'} eq "POST")
{ read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
}
else
{ $buffer = $ENV{'QUERY_STRING'};
}
print "Content-type: text/html\n\n";
print<<eof1;
<html>
<body>
eof1
@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{ ($key,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$content{$key} = $value;
print ("$key = $content{$key}<br>");
}
print<<eof2;
<form action="/cgi-bin/skrip_dua.pl">
<input type="hidden" value="$content{$field1}" name="field1">
<input type="hidden" value="$content{$field2}" name="field2">
<input type="hidden" value="$content{$field3}" name="field3">
<input type="hidden" value="$content{$field4}" name="field4">
<input type="hidden" value="$content{$field5}" name="field5">
<input type="submit" value="SUBMIT">
</form>
</body>
</html>
eof2
exit(0);
=====================
skrip_dua.pl
=====================
#!/usr/bin/perl
if ($ENV{'REQUEST_METHOD'} eq "POST")
{ read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
}
else
{ $buffer = $ENV{'QUERY_STRING'};
}
print "Content-type: text/html\n\n";
print<<eof1;
<html>
<body>
eof1
@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{ ($key,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$content{$key} = $value;
print ("$key = $content{$key}<br>");
}
print<<oef2;
</body>
</html>
oef2
exit(0);
======================
saya pakai "hidden" buat mempassingnya !
naaahhh.... kenapa sih saya gagal passing value dari skrip_atu.pl ke
skrip_dua.pl ?
tekniknya salah ? atau ada kesalahan logika ? atau apa ?
TIA
--
Anastasia ~...nothing last forever !
--
Don't use linux !
Use SlakWare instead ! piece !
Contact me for ANY Linux discussion on ICQ 101965752
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
