René Nyffenegger's collection of things on the web
René Nyffenegger on Oracle - Most wanted - Feedback -
 

Substituting dollars with PERL

No escaping

use warnings;
use strict;

my $str = 'foo $to_change bar';

my $f = '$to_change';
my $t = '$changed';

$str=~s/$f/$t/;

print "$str\n";
Results in foo $to_change bar

Escaping $f

use warnings;
use strict;

my $str = 'foo $to_change bar';

my $f = '\$to_change';
my $t = '$changed';

$str=~s/$f/$t/;

print "$str\n";
Results in foo $changed bar

Escaping $t

use warnings;
use strict;

my $str = 'foo $to_change bar';

my $f = '$to_change';
my $t = '\$changed';

$str=~s/$f/$t/;

print "$str\n";
Results in foo $to_change bar

Escaping both $t and $f

use warnings;
use strict;

my $str = 'foo $to_change bar';

my $f = '\$to_change';
my $t = '\$changed';

$str=~s/$f/$t/;

print "$str\n";
results in foo \$changed bar