Subversion Repositories wimsdev

Rev

Rev 6985 | Rev 9875 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6985 Rev 7016
Line 1... Line 1...
1 
#!/usr/bin/perl
 1 
#!/usr/bin/perl
2 
##example classes
 2 
##example classes
3 
 
 3 
 
4 
use warnings;
 4 
use warnings;
5 
use strict;
 5 
use strict;
6 
use search ('out', 'sortuniq', 'hashdomain', 'treate_accent', 'treate_domainfile');
 6 
use search ('out', 'sortuniq', 'hashdomain', 'treate_accent', 'treate_dict');
7 
 
 7 
 
8 
my $dir='../../../log/classes/';
 8 
my $dir='../../../log/classes/';
9 
my $dirdomain='domain';
 9 
my $dirdomain='domain';
10 
## list of all domains in domain/domain
 10 
## list of all domains in domain/domain
11 
my %ref= ();
 11 
my %ref= ();
Line 33... Line 33...
33 
    $text .= "\n";
 33 
    $text .= "\n";
34 
  };
 34 
  };
35 
  out("$dirout/$T{$key}",join("\n",sort( split("\n", $text)))) if ($T{$key}) ;
 35 
  out("$dirout/$T{$key}",join("\n",sort( split("\n", $text)))) if ($T{$key}) ;
36 
}
 36 
}
37 
for my $l (@Lang) { my $text='';
 37 
for my $l (@Lang) { my $text='';
38 
  my %dom = treate_domainfile ("$dirdomain/domain.$l");
 38 
  my %dom = treate_dict ("$dirdomain/domain.$l");
39 
  my $dom = \%dom;
 39 
  my $dom = \%dom;
40 
  for my $cl (@list) {
 40 
  for my $cl (@list) {
41 
    next if (!($ref{$cl}{'lang'} =~ /$l/)) ;
 41 
    next if (!($ref{$cl}{'lang'} =~ /$l/)) ;
42 
    next if (!$ref{$cl}{'keywords'});
 42 
    next if (!$ref{$cl}{'keywords'});
43 
    $ref{$cl}{'keywords'}=lc(treate_accent($ref{$cl}{'keywords'}));
 43 
    $ref{$cl}{'keywords'}=lc(treate_accent($ref{$cl}{'keywords'}));