2007-11-03 urlエンコード Perl:Tips ex. 猫→%e7%8c%ab sub url_encode($){ my $str = shift; $str =~ s/([^\w])/'%'.unpack('H2'$1)eq; $str =~ tr//+/; return $str; }