Foro - Perl en Español

por **Seth** » 2005-08-04 23:17 @011

Dado un archivo de texto con la estructura siguiente,

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

34!perro!F

38!alacran!F

6!oso!FColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿cómo ordenarlo para que una lista quede "solo" así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

alacran

perro

osoColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Gracias.

Lo que hacemos es procesar el archivo.txt por líneas (-n), partiéndola (-a) en partes separadas por '!' (-F). Nos quedamos con la segunda parte ($F[1]) y lo vamos guardando en el array @A. Al final (END) ordenados el array (sort) y lo unimos todo con retornos de carro ("\n") con join. El retorno de carro final lo agrega el -l.

Más corta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl -F! -ane 'push@A,"$F[1]\n";END{print sort@A}' archivo.txt
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Otra más, haciendo trampa

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl -F! -lane 'print $F[1]' archivo.txt |sort
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Sort básico

Sort básico

Publicidad

Re: Sort basico

Re: Sort básico

¿Quién está conectado?