Nicola,
there is another loop. The whole construction looks like this:
for(@file1) {
$_ =~ s/[\r]|[\n]//; #remove CR and DOS CR
$_ =~ s/\"//g; #remove quotes
next if ($_ =~ /;;;;;;;|DATUM|GESAMT|ANZAHL/);
@raw=split /;/,$_;
if ( $raw[3] eq ""){
while ( ($key, $value) = each %table ) {
if ($raw[2] =~ /$key/) {
$raw[3] = $value ;
last;
}
}
}
#.....more dataprocessing
}# end for loop
Stefan -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
