Re: [programming] perl passing value di web

[Muhammad Yusuf Efendi]

Kalau dengan cara yang dibawah saya ini coba scriptsnya diganti seperti berikut ; ##############script asli###################### @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($key,$value) = split(/=/,$pair); $value =~ tr/+/ /; $content{$key} = $value; print ("$key = $content{$key}<br>"); } ##############script baru#####################33 ## di sini saya pakai @query sebagai pengganti @pairs ... ## silakan anda memakai apa .. # memisahkan input data local(@query) = split(/&/, $query); # mengganti/hash Name=Val ke $in{'Name'} = 'Val' foreach (@query) { # mengganti tanda + ke kosong tr/+/ /; # membagi/memisahakn Name=Val ($key, $val) = split(/=/); # mengganti format %HH ke format huruf asli $key =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge; $val =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge; $val =~ s/\r\n/\n/g; # setting array/hash $in{$key} = $val; print "$in{$key}<br"; } Muhammad Yusuf Efendi wrote: > coba betulkan baru yang berikut ... > <form action="/cgi-bin/skrip_dua.pl"> > menjadi > <form action="/cgi-bin/skrip_dua.pl" method=post> > > tambah method=post > > selamat mencoba.. > > mye > > Atjous Ovrecker wrote: > > > 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 ! > > > -- > -------------------------------------------------------------------------------- Utk berhenti langganan, kirim email ke [EMAIL PROTECTED] Informasi arsip di http://www.linux.or.id/milis.php3 Pengelola dapat dihubungi lewat [EMAIL PROTECTED]