フォームデータをハッシュで返すには？

前画面の入力内容を&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;
}

No.1 ベストアンサー 回答者： Tacosan 回答日時： 2004/09/13 20:20

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

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

while の前に
%in = ();
が必要ですけどね.

この回答へのお礼

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

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