leer de 2 ficheros y comparar campos

[Raul21]

Hola;

Tengo la siguiente duda a ver si alguien puede solucionármela.

Tengo dos ficheros distintos de esta forma:

alarmas_actual.txt
ERI_RN;0
NOK;1
SIE;0

alarmas_anterior.txt
ERI_RN;1
NOK;1
SIE;1

Y lo que quiero es recorrer ambos ficheros para luego comparar si el segundo campo de cada linea del fichero es igual o distinto para en funcion de eso realizar una cosa u otra.

Por ejemplo;

Tiene que leer la primera línea de cada fichero y comparar si el segundo campo(despues del ;) es igual o distinto en cada fichero.
Y así para cada una de las líneas.

Gracias, un saludo

[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

[Raul21]

Buenas tardes;

Muchas gracias por la respuesta. ME ha servido perfectamente.

Un saludo