How To Escape Single and Double Quotes in Perl

Author: erics, February 11th, 2021

## 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[-'

How To Match Multiple Spaces In VIM

Author: erics, July 22nd, 2011

I needed to take just the first occurrence of one or more spaces and turn that into a pipe symbol so as to create 2 fields for easy database import:

:%s/ \+/|/

1	:%s/ \+/\|/

The important thing to note is the inclusion of the backslash in front of the plus (+) sign. That prevents an irritating session of […]