>  2004/11/07 (日) 01:00:56        [mirai]
> > FORMの質問した奴だけどgetformを弄って配列で受けるのは俺ではダメだった
> > でもハッシュから値を拾えば何とかなりそうなのでそっちでやることにしたよ
> > その場合出力がランダムなのでキーが"ita"かどうかいちいち調べないといけないのね
> > さっき教えてくれた人の言ってたことがやっとわかったよ(;´Д`)
> > アドバイスくれた人クスコン
> my ( %form_data, @ita ) = ();
> foreach my $pair ( split( /&/, $ENV{'QUERY_STRING'] ) ) {
> 	my ( $key, $value ) = split( /=/, $pair );
> 	# ここで$valueをデコードしてから
> 	( $key eq 'ita' ) ? 
> 		push( @ita, $value ) : 
> 		$form_data{$key} = $value
> 	;
> }
> $form_data{'ita'} = \@ita;
> みたいな感じでいいんでないの?
> よくわからんけど

my ( %form_data ) = ();
foreach my $pair ( split( /&/, $ENV{'QUERY_STRING'] ) ) {
	my ( $key, $value ) = split( /=/, $pair );
	# ここで$valueをデコードしてから
         $form_data{$key} = $value;
         push ( @{$form_data{"=$key"}}, $value );
}
こんな感じにして
$form_data->{"ita"}で一個だけ
$form_data->{"=ita"}で配列参照とかどうか

参考:2004/11/07(日)00時56分56秒