X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=anamang;fp=anamang;h=e14f213b72cd1b8c02f44ae580f177e3ef70338d;hb=9b57d1ea29c26fcc70f4b399eb1caee78adae7aa;hp=a2bedd762fd6866953df8e2bd2daa30e091bcf7c;hpb=5ada147b61fa20b131d909e5adc2ac40211c0922;p=bin.git

diff --git a/anamang b/anamang
index a2bedd7..e14f213 100755
--- 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};