* add word_sanitize functoin

diff --git a/anamang b/anamang
index a2bedd762fd6866953df8e2bd2daa30e091bcf7c..e14f213b72cd1b8c02f44ae580f177e3ef70338d 100755 (executable)
--- a/anamang
+++ b/anamang
@@ -123,6 +123,9 @@ if (not @words) {
 my @l_o = ('a'..'z');
 my %l_o;
 @l_o{@l_o} = (0 .. 25);
+sub word_sanitize{
+    return map {tr/A-Z/a-z/; tr/éüöáí/euoai/; $_ } @_
+}
 
 my $database = update_and_load_database($options{database_dir},$options{wordlist});
 
@@ -270,7 +273,7 @@ sub update_and_load_database {
        while (<$wordlist_fh>) {
            chomp;
            next unless length $_;
-           my $word = lc($_);
+           my $word = word_sanitize($_);
            $word =~ s/[^a-z]//;
            next unless length $_;
            next if exists $seen_words{$word};