Mega Code Archive

 

Categories / Perl / CGI

 

Using uri_unescape to Make a String Without Escape Characters

#!/usr/bin/perl -T use strict; use URI::Escape; use CGI qw/:standard/; my $unsafestring = "\$5/[3454]/this is a windows filename.asp"; my $safestring = uri_escape($unsafestring); my $unescstring = uri_unescape($safestring); print header,       start_html("start"),       p("unsafe URL: $unsafestring\n"),       p("url_escape(): $safestring\n"),       p("$unescstring: $unescstring\n"), end_html; exit;