Shell Programming and Scripting

a=b
c=d
e=f

John=Jean
eats=mange
a=un
cake=gateau

John eats a cake

Jean mange un gateau

<text awk '
NR==FNR {tr[$1]=$2; next}
{for(i=1; i<=NF; i++) if ($i in tr) $i=tr[$i]; print}
' FS="=" rules FS=" " -

$ 
$ cat mapper
a=un
about=pour
are=allez
boy=garçon
cake=gâteau
eats=mange
friend=ami
green=verte
how=comment
is=est
my=mon
the=le
this=cette
you=vous
$ 
$ 
$ cat input
how are you
my friend eats a cake
this apple is green
about the boy
$ 
$ 
$ perl -lne 'if ($ARGV eq "mapper"){($k,$v)=m/^(.*?)=(.*)$/; $x{$k}=$v} else {@y=split/[ ]+/; print join(" ", map{ defined $x{$_} ? $x{$_} : $_} @y)}' mapper input
comment allez vous
mon ami mange un gâteau
cette apple est verte
pour le garçon
$ 
$ 
$ # "apple" didn't get translated.
$ # Add the map for "apple" and try again
$ 
$ echo "apple=pomme" >> mapper
$ 
$ perl -lne 'if ($ARGV eq "mapper"){($k,$v)=m/^(.*?)=(.*)$/; $x{$k}=$v} else {@y=split/[ ]+/; print join(" ", map{ defined $x{$_} ? $x{$_} : $_} @y)}' mapper input
comment allez vous
mon ami mange un gâteau
cette pomme est verte
pour le garçon
$ 
$ 
$