Unescape in Perl

rigel_kent · 05-18-2006, 03:02 PM

Hi there,

I made a function in Perl to unescape escaped characters (like in JavaScript). BUT, the strings are imported from a input txt file.

Example: escape this

Code:

%2Ebu%74to%6E%3D%3D%32%29|%7C%28e%76en%74%2Eb%75tt%6Fn%3D%3D3%29%29%7Br%65tu%72n

gives

.button==2)

and it should have given

.button==2)||(event.button==3)){return

I use my routine:

Code:

sub UNESCAPE { 
    my($todecode) = @_; 
    $todecode =~ tr/+/ /;
    $todecode =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; 
    return $todecode; 
}

Everything was well until the "|" show up. The function only unescapes until the "|" (and probably until special characters). If we put the sequence between "" it works. But if we fetch it by input, everything goes wrong...

How can I solve this?

Rigel_Kent

spooon · 05-18-2006, 04:46 PM

Quote:

Originally Posted by rigel_kent

Everything was well until the "|" show up. The function only unescapes until the "|" (and probably until special characters). If we put the sequence between "" it works. But if we fetch it by input, everything goes wrong...

So your function works. I'm not sure what you mean by "if we fetch it by input, everything goes wrong..."? Can you show the complete code of what you are trying to do when it doesn't work?

rigel_kent · 05-18-2006, 06:15 PM

Ok,

We have a text file with the following sequence, for example (the first line):

Code:

blah1blah2%2Ebu%74to%6E%3D%3D%32%29|%7C%28e%76en%74%2Eb%75tt%6Fn%3D%3D3%29%29%7Br%65tublah3blah4blah5

We then:

Code:

open (FILE,"<teste.txt");
@data = <FILE>;
foreach $line(@data){
$results = $line =~ m/blah2(.*?)blah3/gi;
if ($1){
print UNESCAPE($1);
}
}
close FILE;

Rigel_Kent

spooon · 05-18-2006, 07:17 PM

Quote:

Originally Posted by rigel_kent

Ok,

We have a text file with the following sequence, for example (the first line):

Code:

blah1blah2%2Ebu%74to%6E%3D%3D%32%29|%7C%28e%76en%74%2Eb%75tt%6Fn%3D%3D3%29%29%7Br%65tublah3blah4blah5

We then:

Code:

open (FILE,"<teste.txt");
@data = <FILE>;
foreach $line(@data){
$results = $line =~ m/blah2(.*?)blah3/gi;
if ($1){
print UNESCAPE($1);
}
}
close FILE;

Rigel_Kent

Works fine for me. It prints ".button==2)||(event.button==3)){retu" as it should. You should probably print a newline at the end so the prompt starts on a new line.

rigel_kent · 05-19-2006, 01:33 AM

Quote:

You should probably print a newline at the end so the prompt starts on a new line.

Still doesn't work for me. What do you mean with the new line?

Regards,

Rigel_Kent