Re: uri_unescape not printing desired results

Several problems with your script:

as others have pointed out, functions don't function if they are called inside quotes.
You're calling uri_unescape which is not a core perl function. You need to use URI::Escape before you call uri_unescape.

If you don't want to use URI::Escape, you could write the function yourself, like this:

sub uri_unescape {
    my $str=shift @_;
    $str=~s/%(\w{2})/chr(hex($1))/ge;
    return $str;
}
[download]

Once you get all the text decoded, you will see that it is just a big copyright notice and disclaimer, and there is no code there. ;-)

Comment on Re: uri_unescape not printing desired results Select or Download Code