Tuesday, March 27, 2007

ハッシュからURLパラメータ perl

my %hash = ();
$hash{test} = 1;
$hash{test2} = 21;
$hash{test3} = 31;

my $parameter = join '&', map {"$_=$hash{$_}"} keys %hash;
print $parameter; # test2=21&test3=31&test=1

No comments: