How to convert octal non printable chars in a string?

platbr has asked for the wisdom of the Perl Monks concerning the following question:

I have a literal string like this:

C\303\263pia de DECLARA\303\207\303\203O

and i need to convert it in:

Cópia de DECLARAÇÃO

How to do it in PERL?

Save me dudes!

SOLVED:

Code:

my $string = 'C\303\263pia de DECLARA\303\207\303\203O';

$string =~ s/\\(0-7+)/chr oct $1/eg;

print "$string\n";

OUTPUT:

Cópia de DECLARAÇÃO

Tks GUYS!

Comment on How to convert octal non printable chars in a string?

Replies are listed 'Best First'.
Re: How to convert octal non printable chars in a string? by kennethk (Abbot) on Jun 27, 2013 at 14:47 UTC
See the discussion at How can I safely unescape a string., revealed to me by Brother Google. Short answer: `$string =~ s/\\([0-7]+)/chr oct $1/eg;` [download] See oct; chr; Search and replace in perlretut (search for `s///e`); and g in perlre for details. #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]
Re: How to convert octal non printable chars in a string? (crosspost) by LanX (Saint) on Jun 27, 2013 at 14:46 UTC
Crosspost! http://malaysia.answers.yahoo.com/question/index?qid=20130627065118AA1bJ7j Cheers Rolf ( addicted to the Perl Programming Language)	[reply]