[Resolved] Reversing url_encode type effect in perl?

[beaver6813]

Reversing url_encode type effect in perl?

Hey,

There is an upload script i'm using, it locks the files and only chmods them to 600, making them virtually impossible to access in php, i've managed to deconstruct how it works but to get perl to chmod the file i need to know the file name... but it only has it in url encoded form:

$tmp_filename =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;

Anyone know how to reverse this so i can have the url in plain form in perl?

Resolved. Some guy over at devshed gave the code to reverse For future reference the opposite would be:

$tmp_filename =~ s{%([a-fA-F0-9][a-fA-F0-9])}{pack("C", hex($1))}eg;