[Juan Garcia]

¿Cuál es la mejor manera de comparar data en dos archivos en Perl?

[Nieves Nieto]

Te dejo el siguiente código, solo debes adaptarlo a tu aplicación:

use strict;
use warnings;
my ($n, %d) = (1);
while (<>){ $d{$_} += $n; $n *= -1 if eof; }
my @mismo_archivos = grep { $d{$_} == 0 } keys %d;
my @dif_archivo1 = grep { $d{$_} > 0 } keys %d;
my @dif_archivo2 = grep { $d{$_} < 0 } keys %d;
my $files_differ = 1 if grep $_, values %d;

[Juan Garcia]

Gracias nieves, muy buena ayuda como siempre