Anastasia wrote:
> >
> > > <input type="hidden" value="$content{$field1}" name="field1">
> >
> > $content{$field1} <--- $field1 ini dapet nya dari mana ? masih null ?
>
> mmm field ini emang ada koq di salah satu "input" dari form.html-nya...
> jadi field-field ini enngga nulll... malah value yang di passing dari skrip_atu.pl
> ke skrip_dua.pl ini berada "dalam" field" itu...
$field-n bukan field-n
variable itu gak pernah di isi
> field-field itu ketika di tampilkan di "skrip_atu.pl" isinya ennga null, tapi ketika
> di "skrip_dua.pl" jadinya null... :-(.
>
> > _uwo_
>
> waxxx.... uwo kereennnn.... :-)
> --
> Anastasia ~...nothing last forever !
> --
saya gak lihat satu baris perintah pun yang memberi nilai variable $field1 - $field5
#!/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">
Saya lebih menyarankan seperti ini :
my (%datas);
@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{ ($key,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; #saya tambah satu baris
$datas{$key} = $value;
print ("$key = $datas{$key}<br>");
}
...
...
my($data);
foreach $data (%datas)
{
print "<input type='hidden' value='$datas{$data}' name='field1'>";
}
...
...
CMIIW
regards,
_uwo_
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
