Subversion Repositories wimsdev

Rev

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

Rev 15403 Rev 15437
Line 5... Line 5...
5 
my %ref;
 5 
my %ref;
6 
my $ref=\%ref;
 6 
my $ref=\%ref;
7 
my %strong;
 7 
my %strong;
8 
my $strong=\%strong;
 8 
my $strong=\%strong;
9 
my ($type, $add)=("","");
 9 
my ($type, $add)=("","");
- 
 
 10 
my $glist0="";
10 
my $glist="";
 11 
my $glist="";
11 
my @list_sort=();
 12 
my @list_sort=();
12 
my $list_to_sort="";
 13 
my $list_to_sort="";
13 
for my $file (glob("*/*/*/*")) {
 14 
for my $file (glob("*/*/*/*")) {
14 
  open(IN, $file) ;
 15 
  open(IN, $file) ;
Line 26... Line 27...
26 
  $ref{$add} .= "$file/$type " if ($add);
 27 
  $ref{$add} .= "$file/$type " if ($add);
27 
  $type=""; $add="";
 28 
  $type=""; $add="";
28 
};
 29 
};
29 
 
 30 
 
30 
@list_sort=sortuniq(split("\n",join("\n", sortuniq(split("\n",$list_to_sort)))));
 31 
@list_sort=sortuniq(split("\n",join("\n", sortuniq(split("\n",$list_to_sort)))));
31 
 
 32 
$glist="";
32 
for my $line (@list_sort){
 33 
for my $line (@list_sort){
33 
  if($line) {
 34 
  if($line) {
34 
    my @l=split(',', $line);
 35 
    my @l=split(',', $line);
35 
    $glist .= "$l[0]/$l[1]/$l[3]/$l[2]\n";
 36 
    $glist .= "$l[0]/$l[1]/$l[3]/$l[2]\n";
36 
  }
 37 
  }