2009-12-01 PERLでURLエンコード Perl sub url_encode($) { my $str = shift; $str =~ s/([^\w ])/'%'.unpack('H2', $1)/ego; $str =~ tr/ /+/; return $str; }