インフォメーションBBS
[使い方]
[タイトルのみ]
[関連発言]
[最新20発言]
[過去ログ一覧]
発言#0856へのレスポンスを書き込んでください:
お名前:
←パスワード(修正用)
アドレス:
タイトル:
本文:
#0856(わかやま神氏)の書き込みを引用します: >#0854(うはく氏)の書き込みを引用します: >>水原 麗名さま・わかやま神さま,お返事ありがとうございますにゃ。(^_^)マネ >>今年も宜しくお願い致します。 >>お二人にはお世話になってばかりなのですが…(大汗) > >とんでもございませんm(__)m >こちらこそお世話になってばかりで…(超大汗) > >***** 省略 ***** > >>すると,もし果物を4つ選択した場合には4つめの果実に呼応する値が >>理由を受け取りたい変数に間違って入ってしまいます。 > >こんなのどーでしょう? >「個々のパラメータに分割して、さらにパラメータ名と値に分割。URLエンコードの復元とタブコードを削除して、それらの漢字コードを統一」 >も含んでいますが。(ふぅ、疲れた・・・) > >read(STDIN, $all, $ENV{'CONTENT_LENGTH'}); >foreach $data (split(/&/, $all)) { > ($key, $val) = split(/=/, $data); > $val =~ tr/+/ /; > $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C',hex($1))/eg; > $val =~ s/\t//g; > &jcode'convert(*val, 'sjis'); > $param{$key} = $val; > >if (defined $param{'text'}) { > $text = ("$param{$key}"); >} >else { > それ以外ならこーする; >} > >if文でパラメータが「text」なら理由項目なので、 >変数[$text]に値を取得する。てな具合です。 > >それ以外ならこーするは・・・どーすればいいんでしょ?(^_^;)
[トップページに戻る]
管理人 :
キャメル