Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Extra backlash getting added to string

by AnomalousMonk (Bishop)
on Jul 15, 2021 at 17:13 UTC ( #11135040=note: print w/replies, xml ) Need Help??

in reply to Extra backlash getting added to string

That's not what I see:

Win8 Strawberry (32) Thu 07/15/2021 13:10:20 C:\@Work\Perl\monks >perl -Mstrict -Mwarnings my $file="Billy_Bob_Smith"; $file =~ s/_/\\_/g; print "'$file' \n"; use Data::Dumper; print Dumper $file; ^Z 'Billy\_Bob\_Smith' $VAR1 = 'Billy\\_Bob\\_Smith';
How are you looking at $file?

Update: Further to Fletch's post:
Utilities like Data::Dumper and Data::Dump try to represent output as "proper" single- or double-quoted strings. A single-quoted string (as in the Data::Dumper example above) handles multiple backslashes that are not before a quote terminal like this:

Win8 Strawberry (32) Thu 07/15/2021 13:10:29 C:\@Work\Perl\monks >perl -Mstrict -Mwarnings my $string = 'a\b\\c\\\d\\\\e'; print ">$string< \n"; ^Z >a\b\c\\d\\e<
You may be seeing an artifact of your data dumper utility, whatever it is.

Give a man a fish:  <%-{-{-{-<

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11135040]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (2)
As of 2021-09-26 05:04 GMT
Find Nodes?
    Voting Booth?

    No recent polls found