Re: How to substitute a string containing "\" with same string in quotes.

[Punitha]

in reply to How to substitute a string containing "\" with same string in quotes.

Hi

Please note that in your example coding the '$sting' and '$substing' are misspelled in some occurances, to avoid this use 'use strict;'

You can escape those slashes in the matching string by using '\Q and \E' like

use strict;

my $string = "this is my sting with \ and /slashes. put substing in qu
+otes"; 
my $substring = "with \ and /slashes"; 
$string =~ s/\Q$substring\E/\"$substring\"/gi; 

print $string;

Punitha

[Rapunzel]

Thanks for quick reply. This way it has deleted "\" from substring. On printing $string i am getting >>this is my sting "with and /slashes". put substing in quotes But i want it this way >>this is my sting "with \ and /slashes". put substing in quote

[Punitha]

Hi

Check the input itself is not containing the '\', because it is interpolated in double quotes.

use strict;

my $string = "this is my sting with \ and /slashes. put substing in qu
+otes"; 
my $substring = "with \ and /slashes"; 
print $string;

$string =~ s/\Q$substring\E/\"$substring\"/gi;

OUTPUT:
this is my sting with  and /slashes. put substing in quotes

Instead use single quote in the input like,

use strict;

my $string = 'this is my sting with \ and /slashes. put substing in qu
+otes'; 
my $substring = 'with \ and /slashes'; 
print $string;

$string =~ s/\Q$substring\E/\"$substring\"/gi;

OUTPUT:
this is my sting with \ and /slashes. put substing in quotes

This will give the correct output

Punitha

[ikegami]

No, $string and $substring don't contains any "\" to begin with.

# The string these literals produce don't contains any "\".
my $string = "my string with \ and / slashes."; 
my $substring = "with \ and / slashes"; 
print("$string\n");
print("$substring\n");
print("\n");

# This is what the literals should be.
$string = "my string with \\ and / slashes."; 
$substring = "with \\ and / slashes"; 
print("$string\n");
print("$substring\n");
print("\n");

# It works.
$string =~ s/\Q$substring\E/\"$substring\"/gi;
print("$string\n");

my string with  and / slashes.
with  and / slashes

my string with \ and / slashes.
with \ and / slashes

my string "with \ and / slashes".