Re^3: Get data from a file to search and replace within a second file

2. I tried the code from almut. It works but it will not distinguish between c1 and c11. In other words when C11 is found d1 is added within the 11. The final result is "c1 d11"

My solution also does not distinguish between c1 and c11. You can add \b anchors, as GrandFather has (see perlre):

        s/\b$k\b/$data{$k}/g;
[download]

Comment on Re^3: Get data from a file to search and replace within a second file Select or Download Code

Replies are listed 'Best First'.
Re^4: Get data from a file to search and replace within a second file by educated_foo (Vicar) on Mar 24, 2010 at 14:21 UTC
Unless `c1` etc. are regular expressions, you'll want to use quotemeta. Here's a simple version that does more or less what you want, I think: `my ($fa, $fb) = @ARGV; open IN, $fa or die $!; my %h; while (<IN>) { my ($str, $rep) = (split)[2,3]; $h{$str} = $rep; } my $pat = join '\|', map { quotemeta $_ } keys %h; $pat = qr/\b($pat)\b/; print STDERR "$pat\n"; open IN, $fb or die $!; while (<IN>) { s/$pat/$1$h{$1}/g; print; }` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Get data from a file to search and replace within a second file
by educated_foo (Vicar) on Mar 24, 2010 at 14:21 UTC

c1

quotemeta

my ($fa, $fb) = @ARGV;
open IN, $fa or die $!;
my %h;
while (<IN>) {
    my ($str, $rep) = (split)[2,3];
    $h{$str} = $rep;
}

my $pat = join '|', map { quotemeta $_ } keys %h;
$pat = qr/\b($pat)\b/;
print STDERR "$pat\n";

open IN, $fb or die $!;
while (<IN>) {
    s/$pat/$1$h{$1}/g;
    print;
}
[download]

[reply]
[d/l]
[select]