Rev 8618 | Rev 8636 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8618 | Rev 8633 | ||
---|---|---|---|
Line 5... | Line 5... | ||
5 | use Encode; |
5 | use Encode; |
6 | 6 | ||
7 | use Exporter; |
7 | use Exporter; |
8 | our @ISA = 'Exporter'; |
8 | our @ISA = 'Exporter'; |
9 | our @EXPORT = ('hashdomain', 'listdomain', 'out', 'sortuniq', 'treate_accent', |
9 | our @EXPORT = ('hashdomain', 'listdomain', 'out', 'sortuniq', 'treate_accent', |
10 | 'treate_dict', 'treate_language', 'dictionnary', 'reverse_dic'); |
10 | 'treate_dict', 'treate_language', 'dictionnary', 'reverse_dic', 'canonify'); |
11 | 11 | ||
12 | sub canonify { my ($w)=@_; treate_accent(lc($w)) } |
12 | sub canonify { my ($w)=@_; treate_accent(lc($w)) } |
13 | 13 | ||
14 | sub treate_dict { my ($file) = @_; |
14 | sub treate_dict { my ($file) = @_; |
15 | my %ref = ( ) ; my $ref=\%ref; |
15 | my %ref = ( ) ; my $ref=\%ref; |