プロが教えるわが家の防犯対策術!

前画面の入力内容を&ReadParse()を用いて取得し、
その後テキストボックス名などのオブジェクト名と
入力内容をEUCに変換してハッシュで返すという
サブルーチンを作っています。
サブルーチンなので不特定多数の画面から呼び出されます。
下記のとおりにしてみたのですが、うまくハッシュに入っていないらしく、値を取得することができません。
どのようにすればいいでしょうか?

----以下プログラム----
sub Comp_SetParam {
&ReadParse(*form);# パラメータ受取

#引数として渡されたフォームデータを格納
while(($key,$val) = each(%form)){
 #キー名(画面のオブジェクト名)をEUC変換
 &jcode::convert(*key ,'euc');

 #画面入力値をEUC変換
 &jcode::convert(*val ,'euc');

 %in = ("$key" => "$val");

}

#ハッシュにし返す
 return %in;
}

A 回答 (1件)

%in = ("$key" => "$val");


じゃなくって
$in{$key} = $val;
だと思いますが....

while の前に
%in = ();
が必要ですけどね.
    • good
    • 0
この回答へのお礼

単純なミスだったのですね。
ありがとうございました。

お礼日時:2004/09/14 09:57

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!