Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^5: Windows and backslashes and replacements oh my! (two escapings in LHS of s///)

by LanX (Saint)
on Jun 19, 2021 at 12:09 UTC ( [id://11134024]=note: print w/replies, xml ) Need Help??


in reply to Re^4: Windows and backslashes and replacements oh my!
in thread Windows and backslashes and replacements oh my!

> > Obviously Perl needs to escape the backslash inside a regex

> not after interpolation of variables like $bs

I have to correct myself, it depends on the side of the substitution

  • the right side is a simple doublequoted string, so after interpolation no escaping
  • but the left side is a regex with two levels of escaping
    1. string interpolation with escaping first, i.e. \$bs won't be interpolated
    2. regex interpretation with escaping first, i.e. /\*/ is not a quantifier but literal * same with /$bs*/
compare
d:\>perl -E"for $x (qw/C:\berrybrew\test C:\berrybrew /) {$_=$x; $bs=c +hr(92); s#$bs$bs#<${bs}>#g; say}" C:<\>berrybrew<\>test C:<\>berrybrew d:\>

or to eliminate the Win command line

use v5.12; use warnings; use Data::Dump; my $bs=chr(92); for my $x (qw/C:\berrybrew\test C:\berrybrew /) { $_=$x; s#$bs$bs#<${bs}>#g; say; #ddx $_; } $_='$bs'; s/\$bs/<$&>/; say;
C:<\>berrybrew<\>test C:<\>berrybrew <$bs>
so this might be the OPs original problem

see also

s/RegEx/substitutions/: Variable interpolation and when to use /e - modifiers

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2024-03-28 20:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found