Using perl Syntax Highlighting
$comp = 0;
BUCLE:
foreach my $conf (@registros1) { # lo recorre para ir imprimiendo todo
foreach my $ult (@registros3) {
if ( $conf eq $ult ) {
next BUCLE;
}
else {
$comp = 1;
last BUCLE if $comp = 1;
}
}
}
close CONF ;
close ULT ;
BUCLE:
foreach my $conf (@registros1) { # lo recorre para ir imprimiendo todo
foreach my $ult (@registros3) {
if ( $conf eq $ult ) {
next BUCLE;
}
else {
$comp = 1;
last BUCLE if $comp = 1;
}
}
}
close CONF ;
close ULT ;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Gracias