CGIでエスケープ表示

同じく落ちてたので転記。たまに知りたいときがあるんですな、なぜか。

#!/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";