programming-examples/perl/CGI/A Safe String Example with uri_escape.pl
2019-11-15 12:59:38 +01:00

16 lines
351 B
Perl

#!/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);
print header,
start_html("start"),
p("unsafe URL is: $unsafestring\n"),
p("url_escape() function:$safestring\n"),
end_html;
exit;