Foro - Perl en Español

por **gonzalipto** » 2011-05-02 08:18 @387

Estimados amigos perleros, espero que anden bien.

Tengo el siguiente problema: tengo un archivo de texto de la siguiente estructura (solo que bastante más largo):

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

AA 12   23      0.693   1.200   0       13      0.005   0.096   2       2

AA 12   25      0.572   0.745   0       0       0.005   0.000   2       2

AB 12   309     0.740   0.045   0       3       0.005   0.333   2       2

AB 12   316     0.445   0.964   0       0       0.005   0.058   1       1

AB 12   317     0.687   0.445   0       1       0.005   0.431   2       2

AB 12   338     0.442   -0.230  0       2       0.005   0.054   1       1

AB 12   340     0.745   0.941   0       13      0.005   0.291   2       2

AB 12   347     0.610   1.269   0       19      0.005   0.009   1       1

AB 12   348     0.452   1.055   0       12      0.005   0.000   2       2

AA 13   15      -1.246  -1.466  6       7       0.326   0.304   1       1

AA 13   24      0.423   -1.568  6       11      0.326   0.000   2       2

AB 13   309     0.358   -0.969  6       3       0.326   0.333   1       1

AB 13   312     0.675   -0.896  6       15      0.326   0.016   2       2Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y necesito ordenarlo alfabéticamente según el primer campo (AA, AB, BB, etc).

Hice el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 my @opened_cont_ord = (); 
  @opened_cont_ord=<CONTORD>; 
  close (CONTORD);
  print "$file\n";
  sort (@opened_cont_ord);
 
  my $salida2 = "ClasifContOrdered";
  open(SALIDA2, ">$salida2") || die "ERROR: No puedo abrir el fichero $salida\n";
 
  foreach my $line (@opened_cont_ord)
  {
    print SALIDA2 $line;          
  }
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero cuando veo la salida, no está ordenada... ¿Alguien podría ayudarme con esto? ¿Estoy usando mal la función sort()?

¡Gracias y suerte!

Gonzalo

La primera línea, con cmp, sirve para ordenar la primera columna (la 0) alfabéticamente de forma ascendente (el $a está antes que el $b).

La segunda línea, con <=>, sirve para ordenar la segunda columna (la 1) numéricamente de forma ascendente.

El operador or lógico (||) sirve para que, cuando se encuentre con líneas que contengan campos iguales en la primera columna, se debe mirar el segundo campo.

Foro - Perl en Español

Ordenar alfabéticamente líneas de un archivo de texto

Ordenar alfabéticamente líneas de un archivo de texto

Publicidad

Re: Ordenar alfabeticamente lineas de un archivo de texto

Re: Ordenar alfabéticamente líneas de un archivo de texto

Re: Ordenar alfabéticamente líneas de un archivo de texto

Re: Ordenar alfabéticamente líneas de un archivo de texto

¿Quién está conectado?