Shell Programming and Scripting

 
country_name1,country_code1
country_name2,country_code2
.
.

 
country_name1,gfgdfg,dfgfdgfdg
country_name2,trtert,rrter,trtrt
.
.

 
while read line
do
    name=$(echo $line | cut -d, -f1
    code=$(echo $line | cut -d, -f2
    sed -i "s/$name/$code/" inputFile.csv
done < country_code.csv

awk -F, 'NR==FNR{a[$1]=$2;next} $1 in a {$1=a[$1]}1' OFS=, country_code.csv inputFile.csv

IFS=,
while read name code
do  
   sed -i "s/$name/$code/" inputFile.csv
done < country_code.csv

#!/usr/bin/perl

use strict;
use warnings;
use Text::CSV;

my $lookup = 'isocodes';
my $csv = Text::CSV->new();
my %hash_table = ();

open (CSV, "<", $lookup) or die $!;
while (<CSV>) {
   if ($csv->parse($_)) {
       my @columns = $csv->fields();
       # print "@columns\n";
       $hash_table{$columns[0]} = $columns[1];
   } else {
       my $err = $csv->error_input;
       print "Failed to parse line: $err";
   }
}
close CSV;

# print "$_ = $hash_table{$_}\n" foreach keys %hash_table;

my $file = 'example';
$csv = Text::CSV->new();

open (CSV, "<", $file) or die $!;
while (<CSV>) {
   if ($csv->parse($_)) {
       my @columns = $csv->fields();
       $columns[0] = $hash_table{$columns[0]};
       { local $" = ','; print "@columns\n"; }
   } else {
       my $err = $csv->error_input;
       print "Failed to parse line: $err";
   }
}
close CSV;

Ireland,IE
United States,US
Philippines,PH

Ireland,column2,column3
Philippines,column2,column3
United States,column2,column3

IE,column2,column3
PH,column2,column3
US,column2,column3