覚書 リファレンス渡し
my $from = \%form; &makeHidden(\%form); #---------------------------------------- # リファレンス渡し #---------------------------------------- sub makeHidden{ my($form) = @_; my $hidden_value = undef; while((my $key,my $value) = each(%{$form})){ $hidden_value .= "$key"."$value"."<br>\n"; } print $hidden_value; }