Hola amigos, es mi primera pregunta, espero me puedan ayudar.
Tengo dos archivos; uno con 353990 líneas y otro con 1350274 líneas.
Deseo extraer las líneas idénticas e imprimirlas en otro archivo.
Tengo un código, pero demora demasiado, excesivamente mucho.
El código que tengo es el siguiente
#!/usr/bin/perl -w
use strict;
my $id_file1 = shift @ARGV;
my $id_file2 = shift @ARGV;
system("grep -f $id_file1 $id_file2 > tmp_file2");
open IN, "tmp_file2";
while( my $line = ...