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