Subversion Repositories wimsdev

Rev

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;