Array of Array / Union

[Hannes]

Hi,

sorry mein Fehler ... hatte $_ zu $line gemacht und nicht angepasst:

foreach my $line (@a)  
{  
my @t = split (/;/,$line);  
#print @t;  
  
        if( exists $h{ $t[0] . $t[2] } )  
        {  
                if ($h{ $t[0] . $t[2] }[0] > $t[3]){next;}  
                else  
                {  
                push @{ $h{ $t[0] . $t[2] } } , $t[3], $line  
                }  
        }  
  
        else  
        {  
                push @{ $h{ $t[0] . $t[2] } } , $t[3], $line;  
        }  
}  
  
  
@a =();  
foreach( keys %h ){  
                print $_;  
  push @a, $h{$_}[1];  
}  
  
  
print @a;  

Bin noch am nachvollziehen, warum das so funktioniert, aber sieht schonmal gut aus. Merci.