Hola,

Soy nuevo en perl de secuencias de comandos .. Todavía estoy que learing .. Se me ha pedido que escriba una perl script que debería comparar 2 coloums de 2 archivos diferentes. si esos son los mismos 2 coloumn la secuencia de comandos debe almacenar la tanto la diferencia en 2 líneas de archivos.

estos son archivos,

archivo 1:
21767016 226112 char []
19136520 797355 java.lang.String
17769368 307049 java.lang.Object []
13981656 582569 Entrada $ java.util.HashMap
10867240 16650 int []
9065616 559799 java.lang.String []
9060192 79626 java.util.HashMap Entrada $ []
6969384 23146 byte []
6857664 285736 java.util.Vector


archivo 2:
21702192 904258 java.lang.String
20985320 360561 java.lang.Object []
20524112 209810 char []
12623280 525970 Entrada $ java.util.HashMap
10945080 678896 java.lang.String []
9781432 10871 int []
8302464 345936 java.util.Vector
8107104 337796 netscape.ldap.util.RDN
7620024 68357 java.util.HashMap Entrada $ []
6515152 52272 * ConstMethodKlass

por lo que tengo que comparar 3 coloumn de estos archivos a 2, por ejemplo, tengo java.lang.String presente en los dos así que quiero sacar el script línea completa de los archivos en 2 diferentes archivos. Estos 2 archivos son archivos de gran tamaño.

por favor me indican cómo se puede hacer. algunos han sugerido que uno puede usar la tabla hash aplicación.

gracias,
Vasuki

Pruebe esta quizás (no probado):

awk '
    # load the contents of file1 into a hash indexed by $3
    NR==FNR { file1[$3]=$0; next }
    # check whether $3 in file2 is in the hash, if so, print bothlines to files
    $3 in file1 { print file1[$3] >> "file1.both"; print >> "file2.both" }
' file1 file2

Y aquí es (aproximadamente) en el mismo Perl:

perl -ane 'BEGIN { open FILE1, ">file1.both"; open FILE2, ">file2.both"; }
  if ($. == ++$n) { $h{$F[2]} = $_; close ARGV if eof; next; }
  if ($h{$F[2]}) { print FILE1 $h{$F[2]}; print FILE2; }' file1 file2

si no está seguro de entender correctamente su pregunta.

De todos modos, espero más adelante se puede hacer algo de sentido común.

open (FH,"<a");
while(<FH>){
	@arr=split(" ",$_);
	$hash{$arr[2]}=$_;
}
close(FH);
open (FH,"<b");
while(<FH>){
	@arr=split(" ",$_);
	if(exists($hash{$arr[2]})){
		print $hash{$arr[2]};
		print $_;
	}
}
close(FH);