# user didn't specify columns, so just SAR each line and leave alone
} else {
# loop through mapping array for each line
foreach my $replace (keys(%map)) {
# ignore case?
if (defined($opt_ignore)) {
$YESMapping += ($_ =~ s/$replace/$map{$replace}/gi)
} else {
$YESMapping += ($_ =~ s/$replace/$map{$replace}/g)
}
}
print $OUT $_
}
####
# user didn't specify columns, so just SAR each line and leave alone
} else {
# loop through mapping array for each line
foreach my $replace (keys(%map)) {
# ignore case?
if (defined($opt_ignore)) {
print "SAR on $_ with $replace\n";
$YESMapping += ($_ =~ s/$replace/$map{$replace}/gi)
} else {
$YESMapping += ($_ =~ s/$replace/$map{$replace}/g)
}
}
print $OUT $_
}
##
##
{C} > msar input.txt map.txt -r -i
Reading mappings from file: map.txt
----------------------------
SAR on april
with il
SAR on apr3143
with barrel
SAR on apr3143
with april
SAR on apr3143
with pr
a94323143
SAR on barrel
with il
SAR on barrel
with barrel
SAR on 1168
with april
SAR on 1168
with pr
1168
----------------------------
Mapped 3 entries.
##
##
{C} > msar.pl in.txt map.txt -i -r -c 1
Reading mappings from file: map.txt
----------------------------
225
1168
----------------------------
Mapped 2 entries.