Re^2: Uer Perl Variable in file

Or even

#!/usr/bin/perl
use warnings;
use strict;

my %replace = (name => 'Joe',
               fun  => 'a game');
my $search_for = join '|', map quotemeta, keys %replace;
while (<DATA>) {
    s/\$($search_for)/$replace{$1}/g;
    print;
}
[download]

I avoid nested loops where possible.

Perl 6 - the future is here, just unevenly distributed

Comment on Re^2: Uer Perl Variable in file Download Code

Replies are listed 'Best First'.
Re^3: Uer Perl Variable in file by tinita (Parson) on Aug 06, 2012 at 14:24 UTC
`my $search_for = join '\|', map quotemeta, keys %replace; ... s/\$($search_for)/$replace{$1}/g;` [download] Additionally: when doing things like this and you have two hash keys "foo" and "foobar", either use \b in the regex if possible, or sort the hash keys for length before joining. otherwise $foobar could be replaced with the value of $replace{foo}. `s/\$($search_for)\b/$replace{$1}/g;`	[reply] [d/l] [select]