13:25 >perl -wE "my %h = (x => 0, '$1' => 1); my $s = 'axb'; say $s =~ + s/(x)/$h{$1}/r; say $s =~ s/(x)/$h{'$1'}/r;" a0b a1b 13:27 >
?
| Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
In reply to Re^5: In place search and replace with a hash
by Athanasius
in thread In place search and replace with a hash
by hkates
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |