Foro - Perl en Español

por **martaf** » 2012-09-25 10:11 @466

¡Hola!

Soy nueva en esto de la programación con Perl y ¡aún no consigo aclararme!

Mi pregunta es muy básica. ¿Podrían ayudarme a crear un programa que me compare dos archivos (la extensión de los archivos es ".tab")?

Este programa tiene que buscar el contenido de las celdas del archivo 1 (por ejemplo, el contenido de A1, A2, A3...) y buscar si está en el archivo 2 (búsqueda en todas las celdas de la columna B de este segundo archivo). Después, tendría que crear otro archivo que tuviera los resultados de los datos no coincidentes.

¡Gracias!

#!/usr/bin/perl
 
use autodie;
 
my %allgeno;
 
 
open GENOTYPED, '<', 'GW_DATA_genotyped.tab';
 
 
while (my $geno= <$GENOTYPED>)
{
    my($ID) = split /\t/, $geno, 2;
    $allgeno{$ID} = 1;
}
 
 
close GENOTYPED;
 
open ORIGINALDATA, '<', 'GW_DATA_ORI.tab';
open OUTPUT, '>>', 'results2.txt';
 
while (my $data= <$ORIGINALDATA>)
{
    my ($ID)= split /\t/, $data, 2;
    if (not exists $allgeno {$ID}) {
        print $OUTPUT $data;
    }
}
 
close OUTPUT;
close ORIGINALDATA;
 
END;
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-09-26 14:37 @651

¿A qué te refieres con que no funciona correctamente?

¿Qué es lo que produce?

por **martaf** » 2012-09-27 02:50 @159

Me genera el archivo "results" ¡pero está vacío!
Los archivos con los que estoy trabajando tendrían una estructura así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

ID     Num_lab     Sex

D1      12585       F

D2      12568       M

D3      12896       FColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que quiero comparar entre los dos archivos es el ID (columna 1).

por **explorer** » 2012-09-27 20:57 @914

Según tu código, lo que hay entre las columnas de los campos es un carácter tabulador (\t).

¿Es así?

Si solo son espacios, entonces cambia

split " ", $geno, 2;

por

split " ", $geno, 2;

¡Ah!, y no es

END;

sino

__END__

Es más... ¡quítalo! (no hace falta)

Foro - Perl en Español

Comparar archivos .tab

Comparar archivos .tab

Publicidad

Re: Comparar archivos .tab

Re: Comparar archivos .tab

Re: Comparar archivos .tab

Re: Comparar archivos .tab

Re: Comparar archivos .tab

¿Quién está conectado?