How To Escape Single and Double Quotes in Perl

Author: erics, Posted February 11th, 2021 at 8:36:14am

## to add a single backslash in front of whatever char was matched

my $password = q#abc'A1r%Fgt&jh[-#;
$password =~ s/(['])/\\$1/g;
print qq#'$password'\n#;
'abc\'A1r%Fgt&jh[-'

my $password = q#abc'A1r%Fgt&jh[-#;

$password =~ s/(['])/\\$1/g;

print qq#'$password'\n#;

'abc\'A1r%Fgt&jh[-'

## to double whatever char was matched

my $password = q#abc'A1r%Fgt&jh[-#;
$password =~ s/(['])/$1$1/g;
print qq#'$password'\n#;
'abc''A1r%Fgt&jh[-'

my $password = q#abc'A1r%Fgt&jh[-#;

$password =~ s/(['])/$1$1/g;

print qq#'$password'\n#;

'abc''A1r%Fgt&jh[-'

## to convert ‘ to ‘\” for shell execution

my $password = q#abc'A1r%Fgt&jh[-#;
$passwordShell =~ s/(['])/$1\\$1$1/g;
print qq#'$password'\n#;
'abc'\''A1r%Fgt&jh[-'

my $password = q#abc'A1r%Fgt&jh[-#;

$passwordShell =~ s/(['])/$1\\$1$1/g;

print qq#'$password'\n#;

'abc'\''A1r%Fgt&jh[-'

All fields marked with "*" are required.