[Perl] How can I escape all backslashes in a string without specify each one ?

android2009 · 09-27-2010, 09:53 PM

Hello there,

I want to read a input from user and output something like 'input\b\c\d', which has to escape all backslashes if using double-quote. For instance, the following code would work.

Just curious if any other way I could do it without specify all backslashes? Since that takes much efforts when the sequence is long.

Code:

#!/usr/bin/perl

$letterA='A';

print "$letterA\\b\\c\\d';

Any idea is well appreciated,
Thanks!

kurumi · 09-27-2010, 10:04 PM

what is it you are trying to do to user input?
I would just break the input up and rejoin back using "\". you can also do a regex replacement to replace single characters
with "\"$1.

In Ruby

Code:

$ ruby -e 's="abc"; print "\\"+s.split(//).join("\\")  '
\a\b\c

You can do similarly with Perl.

Sergei Steshenko · 09-28-2010, 06:49 AM

Quote:

Originally Posted by android2009

Hello there,

I want to read a input from user and output something like 'input\b\c\d', which has to escape all backslashes if using double-quote. For instance, the following code would work.

Just curious if any other way I could do it without specify all backslashes? Since that takes much efforts when the sequence is long.

Code:

#!/usr/bin/perl

$letterA='A';

print "$letterA\\b\\c\\d';

Any idea is well appreciated,
Thanks!

How about

Code:

$user_input =~ s/\\/\\\\/g;

?