Cargando

Ir a contenido

X

perl - comparar dos archivos





  AUTOR PREGUNTA

Publicado 02 julio 2014 - 19:06
¿Cuál es la mejor manera de comparar data en dos archivos en Perl?
  • ¿Tienes la misma pregunta? Yo también
  • Volver arriba


 

Publicado 02 julio 2014 - 22: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

Publicado 03 julio 2014 - 03:56
Gracias nieves, muy buena ayuda como siempre ;)


X