2006-11-07 URIデコード code #!/usr/bin/perlwhile(){ $_ =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg; print $_; }