Foro - Perl en Español

por **davids84** » 2011-05-27 08:21 @390

Hola, ¿qué tal...?

¿Cómo puedo hacer una suma de valores de una columna con respecto a otra columna, siempre y cuando el valor de columna 2 sea el mismo...? Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

    IGHV9-4-01
      IGHV9-4-01
      IGHV9-4-01
      IGHV9-3-1-01
11      IGHV9-3-01
    IGHV9-3-01
      IGHV9-3-01
      IGHV9-3-01
      IGHV9-3-01
    IGHV9-1-01
      IGHV9-1-01
 
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

esto es parecido a mi archivo de entrada... la salida sería de este modo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

      IGHV9-4-01
      IGHV9-3-1-01
    IGHV-3-01
    IGHV9-1-01
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿¿¿Alguna opinión???

Esto es código que tengo... pero no me hace la suma...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open my $fh, $ARGV[0] or die "No se puede abrir el archivo\n";
 
my($segmento,$total,$total1);
 
while (<$fh>) {
 
          if (/(.+)\t(.+)\n/){
              if ($segmento) {
                  print "$segmento\t$total\n";
              }
              $total = $1;
              $segmento = $2;
          }
 
      }
 
 
      if ($segmento eq $segmento) {
        $total1 = $total + $total;
          print "$segmento\t$total1\n";
      }
      close $fh;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¡¡¡¡Saludos!!!!
¡¡¡¡¡Gracias!!!!!

El problema se soluciona de forma fácil usando hash.

Otra opción sería mantener una variable con el contenido de la segunda columna, y cuando hubiese un cambio, sacar la suma acumulada del primero. Para el resto de líneas, solo hay que sumar la primera columna en el acumulador.

Cosas como esta:
if ($segmento eq $segmento) {

indican que no te has planteado bien la solución... ¿has intentado resolver el problema antes con lápiz y papel? Si no, no hubieras puesto una condición que siempre se cumple ($segmento siempre es igual a sí mismo, contenga lo que contenga).

Foro - Perl en Español

Sumar valores de una columna

Sumar valores de una columna

Publicidad

Re: Sumar valores de una columna

¿Quién está conectado?