ﾙ*’ｰ’ﾘ＜perlですぅ。

URLエンコード

Perl で url エンコードと url デコード

sub url_encode{
  my $str = shift;
  $str =~ s/([^\w ])/'%'.unpack('H2', $1)/eg;
  $str =~ tr/ /+/;
  return $str;
}