make_hidden.pl

# パラメタの連想配列への参照から、HIDDEN文字列を生成する。

sub make_hidden{
	my($param, @ignore) = @_;
	my($delim) = "\0"; # 複数項目のデリミタ

	# HIDDEN作成
	LOOP:foreach(keys %$param){
		my($values, $value, $ignore);
		# HIDDENに加えないキー?
		foreach $ignore (@ignore){
			next LOOP if $_ eq $ignore;
		}
		$values = $param->{$_};
		$values =~ s/"/"/g;
		$values =~ tr/\r\n//d; # 改行の実体参照を""の中に入れてもいいの?
		foreach $value (split($delim, $values)){
			$return .= qq!<INPUT TYPE=HIDDEN NAME="$_" VALUE="$value">\n!;
		}
	}
}