kayaknya skripnya ngga tersalin dengan benar waktu dicopy-paste?
sekilas dari skripnya sih gak ada yang aneh, jadi barangkali
ada masalah dengan form HTML-nya.
tips: gunakan modul CGI. it's the current preferred way.
--
sh
At 04:57 PM 3/15/2001, you wrote:
>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;
>eof1 @pairs = split(/ foreach $pair (@pairs) { ($key,$value) =
>split(/=/,$pair); $value =~ tr/+/ /; $content{$key} = $value; print ("$key
>= $content{$key}
>"); } print<
>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;
>eof1 @pairs = split(/ foreach $pair (@pairs) { ($key,$value) =
>split(/=/,$pair); $value =~ tr/+/ /; $content{$key} = $value; print ("$key
>= $content{$key}
>"); } print<
>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 ?
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
