Foro - Perl en Español

por **Marielago** » 2011-01-14 08:52 @411

¡Hola! Soy bastante nueva en Perl y la verdad no me manejo mucho y tengo un problema. No sé si alguien tiene una idea para ayudarme.

El asunto es que tengo un archivo de este tipo: (las columnas dos y tres son coordenadas)

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

nombre1  1   10

nombre1  25  30

nombre1  45  76

nombre2  12  23

nombre2  38  72

nombre2 145  158

nombre2 163  181

nombre2 176  184

nombre3  26   38

nombre3  42   75

nombre4  62   89

nombre4 104  195

nombre4 132  158

nombre4 165  201

nombre5 10    45

nombre5 163   189Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y necesito que si la línea i con la siguiente tienen el mismo nombre y la diferencia entre las columnas 2 de la línea i y la siguiente es menor que 50 contabilice y guarde el nombre y columna 2 de i y continúe comparando hasta que la diferencia sea mayor que 50 o los nombres sean distintos y guarde la columna 3 de la última linea en la que se cumplían las condiciones.

Para este caso una salida de este tipo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

nombre1  1  76  n=3

nombre2 12  72  n=2

nombre2 145 184 n=3

nombre4 104 201 n=3Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Pero algo sabrás de abrir un fichero, leerlo por líneas, usar split() para sacar los campos de cada línea...

Otra cosa es planificar la jugada para comparar una línea con la siguiente, pero eso se arregla usando una variable que vaya almacenando el valor anterior, dentro del bucle de lectura de líneas...

por **Marielago** » 2011-01-14 12:23 @557

Si hago un arreglo bidimensional para recorrer y comparar los campos y las líneas, ¿estará bien o hay alguna otra manera?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open FICHERO, "<Coord.finales" or die "ERROR: No encuentra archivo\n";
my @lineas = <FICHERO>        or die "ERROR, no se puede leer\n";
close FICHERO              or die "ERROR: No puedo cerrar\n";
 
foreach ( my @lineas ) {
  push  my @array, [ split /\t/ ];
}
open(OUT,"+>motivos");
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿Eso está bien?

por **explorer** » 2011-01-15 11:01 @500

Sí, vas bien. Con eso vas leyendo las @lineas y creando un @array por cada línea (¿hay tabuladores entre los campos?).

Lo que te queda es pensar qué debe ocurrir con cada línea que estás tratando, que es seguir el guión que has publicado al principio.

Y yo abriría el fichero "motivos" antes de empezar a tratar las líneas, porque supongo que sí voy a escribir en él mientras las estoy procesando.

por **creating021** » 2011-01-15 12:05 @545

Un poco de ayuda (no muy buena porque no he probado el código

) con el código base que ya tienes, que por cierto hay algunos errores.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use diagnostics;
open FICHERO, "<Coord.finales" or die "ERROR: No encuentra archivo\n";
my @lineas = <FICHERO>        or die "ERROR, no se puede leer\n";
close FICHERO              or die "ERROR: No puedo cerrar\n";
 
# Aquí guardaremos el "ID" que usamos antes
# y los valores del ID anterior, pero por ahora
# guardamos los datos de la 1ª línea
my ($anterior, $val1, $val2) = split /\t/, shift @lineas;
# este es el número de IDs
my $n;
open OUT, "+>motivos";
foreach my $linea ( @lineas ) {
  # Espero que sí estén separados por tab.
  my @contenido = split /\t/, $linea;
  if ( $anterior eq $contenido[0] ) {
      $n++;
      #...
  }
  #...
}
close OUT;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

con eso haces el código :wink:

por **explorer** » 2011-01-15 19:24 @850

¿Por qué en la salida no aparece

nombre3 26 75

?

por **Marielago** » 2011-01-16 22:00 @958

creating021: gracias lo probaré,

explorer: eso fue un error de tipeo, nada más. Gracias a ti también por tu tiempo

Muy amables todos por este foro.

por **explorer** » 2011-01-16 22:05 @962

Entonces, ¿cuál es la salida correcta?

Y me retracto de lo que dije en el primer mensaje: la solución no es obvia...

Foro - Perl en Español

Operaciones varias en un archivo

Operaciones varias en un archivo

Publicidad

Re: Operaciones varias en un archivo

Re: Operaciones varias en un archivo :S

Re: Operaciones varias en un archivo

Re: Operaciones varias en un archivo

Re: Operaciones varias en un archivo

Re: Operaciones varias en un archivo

Re: Operaciones varias en un archivo

Re: Operaciones varias en un archivo

Re: Operaciones varias en un archivo

¿Quién está conectado?