Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Character conversion

by vladb (Vicar)
on Feb 22, 2006 at 17:09 UTC ( [id://532019]=note: print w/replies, xml ) Need Help??


in reply to Character conversion

You can convert the other way using this line of code 
$str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;

[download]
The reverse of what you do in your first regexp, which also could be simplified just a tiny bit like so 
$str =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;

[download]
_____________________
"We've all heard that a million monkeys banging on a million typewriters will eventually reproduce
the entire works of Shakespeare. Now, thanks to the Internet, we know this is not true." - Robert Wilensky, University of California

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://532019]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2024-04-26 00:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found