インフォメーションBBS
[使い方]
[タイトルのみ]
[関連発言]
[最新20発言]
[過去ログ一覧]
発言#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]に値を取得する。てな具合です。 それ以外ならこーするは・・・どーすればいいんでしょ?(^_^;)
[トップページに戻る]
管理人 :
キャメル