René Nyffenegger's collection of things on the web | |
René Nyffenegger on Oracle - Most wanted - Feedback
- Follow @renenyffenegger
|
Substituting dollars with PERL | ||
No escapinguse 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 $fuse 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 $tuse 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 $fuse 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
|