同じく落ちてたので転記。たまに知りたいときがあるんですな、なぜか。
#!/usr/bin/perl
use CGI;
$cgi = new CGI;
$enc = $cgi->escape($ARGV[0]);
#$enc = $cgi->escape("あ");
print "$enc\n";
逆向きの方が使うかも。
#!/usr/bin/perl
use CGI;
$cgi = new CGI;
$unenc = $cgi->unescape($ARGV[0]);
#$unenc = $cgi->unescape("%7e");
print "$unenc\n";