Rev 18174 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 18174 | Rev 18175 | ||
---|---|---|---|
Line 45... | Line 45... | ||
45 | sortuniq ( @W ) |
45 | sortuniq ( @W ) |
46 | } |
46 | } |
47 | @W; |
47 | @W; |
48 | } |
48 | } |
49 | 49 | ||
- | 50 | # use same list as in ~/src/Lib/liblines.c |
|
50 | sub treate_accent {my ($txt) = @_; |
51 | sub treate_accent {my ($txt) = @_; |
51 | $txt=decode('iso-8859-1',$txt); |
52 | $txt=decode('iso-8859-1',$txt); |
52 | $txt =~ tr/ |
53 | $txt =~ tr/éèêëàáâãäåúùûüìíîïóòôöõçñýÿ/eeeeaaaaaauuuuiiiiooooocnyy/; |
53 | $txt =~ s/[ÀÁÂÃÄÅ]/A/g; |
54 | $txt =~ s/[ÀÁÂÃÄÅ]/A/g; |
- | 55 | $txt =~ s/[ÓÒÔÖÕ]/O/g; |
|
54 | $txt =~ s/Ç/C/g; |
56 | $txt =~ s/Ç/C/g; |
- | 57 | $txt =~ s/Ñ/N/g; |
|
- | 58 | $txt =~ s/Ý/Y/g; |
|
55 | $txt =~ s/[ÈÉÊË]/E/g; |
59 | $txt =~ s/[ÈÉÊË]/E/g; |
56 | $txt =~ s/[ÌÏÎÍ]/I/g; |
60 | $txt =~ s/[ÌÏÎÍ]/I/g; |
57 | $txt =~ s/'/ /g; |
61 | $txt =~ s/'/ /g; |
58 | $txt= encode("iso-8859-1",$txt); |
62 | $txt= encode("iso-8859-1",$txt); |
59 | $txt |
63 | $txt |