perl - comparar dos archivos
Iniciado por
Juan Garcia
, jul 02 2014 20:06
AUTOR PREGUNTA #1
Publicado 02 julio 2014 - 20:06
¿Cuál es la mejor manera de comparar data en dos archivos en Perl?
-
¿Tienes la misma pregunta? Yo también
Esto también te interesa!
PREGUNTAS SIMILARES
#2
Publicado 02 julio 2014 - 23:21
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;
AUTOR PREGUNTA #3
Publicado 03 julio 2014 - 04:56
Gracias nieves, muy buena ayuda como siempre 
