|
Posted by szr on May 3, 2008, 3:22 pm
Please log in for more thread options
PerlFAQ Server wrote:
> This is an excerpt from the latest version perlfaq4.pod, which
> comes with the standard Perl distribution. These postings aim to
> reduce the number of repeated questions as well as allow the community
> to review and update the answers. The latest version of the complete
> perlfaq is at http://faq.perl.org .
>
> --------------------------------------------------------------------
>
> 4.20: How do I unescape a string?
>
> It depends just what you mean by "escape". URL escapes are dealt
> with in perlfaq9. Shell escapes with the backslash ("\") character
> are removed with
>
> s/\(.)/$1/g;
>
> This won't expand "\n" or "\t" or any other special escapes.
This will:
$ perl -Mstrict -e '
my $s=q{12\t3 \* 456 \n 789};
$s =~ s/\(.)/"\"\$1\""/gee;
print $s
'
12 3 * 456
789
:-)
--
szr
|