Is There An Equivalent Of JavaScripts Escape() Function In Perl

Is There An Equivalent Of JavaScripts Escape() Function In Perl


  • 21 Dec, 2011

    Try This:require CGI;$escaped = CGI::escape( $normal );# ...or...sub escape { my $str = shift || ''; $str =~ s/([^w.-])/sprintf("%%%02X",ord($1))/eg; $str;}$escaped = escape( $normal );

    Comments Received:
    Please give your suggestions and feedback:

2009-2016 downloadmela.com. All rights reserved.