|
print "usage: AccentRemover myfile\n"; | |
print "Replaces accentuated letters by non accentuated\n"; |
my $file = $ARGV[0]; |
|
open(IN,"$file") || die "cannot open $file\n"; | |
while(<IN>){ |
chomp; | ||
$line=$_; | ||
|
||
if($line ne ""){ |
$line=~s/à|â|ä/a/g; | |
$line=~s/ï|î/i/g; | |
$line=~s/é|è|ê|ë/e/g; | |
$line=~s/ü|û|ù/u/g; | |
$line=~s/ö|ô/o/g; | |
print"$line\n"; |
} |
} #end while |
close(IN) || die "cannot close file"; |
January 2003 |