Foro - Perl en Español

por **principiante** » 2009-08-20 12:03 @543

He creado un programa en el cual partiendo del contenido de un archivo realiza una serie de operaciones hasta obtener un resultado.

¿¿Cómo podría hacer para que ese mismo programa trabaje con el contenido de dos fichero distintos simultáneamente sin tener que escribir el código dos veces (una para cada uno de los fichero) y obtener un resultado para cada fichero??

Me he dado cuenta que de esa forma no obtengo los resultados que quiero porque si en lugar de utilizar dos ficheros diferentes utilizo el mismo fichero dos veces para cada uno de ellos obtengo unos resultados distintos cuando debería obtener los mismos.

Creo que esto se debe a que los resultados que imprimo proceden de unos contadores, ya que los resultados para el primer archivo son correctos pero para el segundo los resultados se suman a los del primero.

¿Cómo puedo solucionarlo?

por **netsoul** » 2009-08-23 12:43 @572

principiante escribiste:Me he dado cuenta que de esa forma no obtengo los resultados que quiero porque si en lugar de utilizar dos ficheros diferentes utilizo el mismo fichero dos veces para cada uno de ellos obtengo unos resultados distintos cuando deberia obtener los mismos.

Si entendí, en el código que te colocó Explorer, hay formas de modificarlo de tal forma que haga de esa manera.

principiante escribiste:Creo que esto se debe a que los resultados que imprimo proceden de unos contadores, ya que los resultados para el primer archivo son correctos pero para el segundo los resultados se suman a los del primero.

¿Cómo puedo solucionarlo?

¿Qué tipo de contadores? ¿Un código?

por **principiante** » 2009-08-23 13:09 @590

El código que tengo es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use strict;
use warnings;
 
my @ficheros = ($fichero1.txt,$fichero2.txt);
 
for my $fichero (@ficheros) {
 
    unless (open(FICHERO,$fichero)) {
        print "No se puede abrir el fichero \"$fichero\ \n\n";  
        exit;
    }
 
    my $dna = <FICHERO>;
 
    close FICHERO;
 
    $dna =~ s/\s//g;
 
    my $parte;
    my %numero_partes; 
 
    for (my $a=0; $a < (length($dna) - 2) ; $a += 3) {
        my $parte = substr($dna,$a,3);
        $numero_partes{$parte}++;   
    }
 
    for $parte (sort keys %numero_partes) {
        print  "$parte\t$numero_partes{$parte}\n";
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Cada fichero contiene secuencias de ADN y lo que quiero obtener es para cada fichero el número de veces que aparece cada $parte en cada uno de ellos.

por **netsoul** » 2009-08-23 14:30 @646

¡Ah!. Parece que entendí,

. Es sencillo si no me equivoco. Hay que inicializar %numero_partes después de cada salida. Prueba a hacerlo entre las líneas 31 y 32. Aunque hay más formas de solucionarlo

por **explorer** » 2009-08-23 15:58 @706

La línea 5

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@ficheros=($fichero1.txt,$fichero2.txt);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

debería ser

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@ficheros=("$fichero1.txt","$fichero2.txt");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En cuanto al código, a mi me parece que está bien. Teniendo el my %numero_partes; dentro del bucle, es inicializado en cada ciclo.

Lo único que haría sería poner un print() al final del bucle, para separar los datos de un fichero de los del siguiente

por **netsoul** » 2009-08-23 17:41 @778

Este Explorer es un cabrón. Tiene 'ojos biónicos'. :lol:

Foro - Perl en Español

Trabajar con dos ficheros simultáneamente

Trabajar con dos ficheros simultáneamente

Publicidad

Re: Trabajar con dos ficheros simultáneamente

Re: Trabajar con dos ficheros simultáneamente

Re: Trabajar con dos ficheros simultáneamente

Re: Trabajar con dos ficheros simultáneamente

Re: Trabajar con dos ficheros simultáneamente

Re: Trabajar con dos ficheros simultáneamente

Re: Trabajar con dos ficheros simultáneamente

¿Quién está conectado?