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'}));