leer de 2 ficheros y comparar campos

[jferrero]

Si las líneas siguen el mismo orden en los dos ficheros, entonces no necesitas preocuparte de mirar solo la segunda parte de la línea. Basta con ver si las líneas son distintas completamente.

Código Perl:

#!/usr/bin/perl
open my $FICHERO, q[<], 'alarmas_actual.txt'  or  die "ERROR: No puedo leer alarmas_actual.txt:$!\n";
my @alarmas_actual = <$FICHERO>;
close $FICHERO;
 
open my $FICHERO, q[<], 'alarmas_anterior.txt'  or  die "ERROR: No puedo leer alarmas_anterior.txt:$!\n";
my @alarmas_anterior = <$FICHERO>;
close $FICHERO;
 
for (my $i = 0; $i < @alarmas_actual; $i++) {
 
    if ($alarmas_actual[$i] ne $alarmas_anterior[$i]) {
        print "Líneas distintas en línea $i:\n";
        print "\tActual  : $alarmas_actual[$i]";
        print "\tAnterior: $alarmas_anterior[$i]";
    }
}
 

Sale:

Código:

Líneas distintas en línea 0:
        Actual  : ERI_RN;0
        Anterior: ERI_RN;1
Líneas distintas en línea 2:
        Actual  : SIE;0
        Anterior: SIE;1