• Publicidad

Hacer un lista con un array

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Hacer un lista con un array

Notapor BigBear » 2010-05-22 16:52 @744

Hola.

Ando teniendo el siguiente problema porque tengo un archivo de texto llamado todo.txt.

El cual tiene
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Hola X



Pero bueno todo bien

¿No?
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


El script Perl:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
open (todo,"todo.txt")
@tor = <todo>;
close todo;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Pero mi duda es cómo puedo ordenarlos de manera que quede como una lista omitiendo todos los espacios desde el array. Quedando así:

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Hola
X
Pero
bueno
todo
bien
¿No?
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


¿Alguien me puede ayudar?
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Re: Hacer un lista con un array

Notapor explorer » 2010-05-22 17:11 @757

Puedes usar la función split() para dividir cada elemento, por los espacios en blanco que contengan (no probado):
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
my @palabras;
for (@tor) {
    my @palabras_en_la_linea = split q[ ];
    next if not @palabras_en_la_linea;
    push @palabras, @palabras_en_la_linea;
}
print join "\n", @palabras;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Hacer un lista con un array

Notapor ficovh » 2010-05-22 18:05 @795

Retomando el código de explorer:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl -w
  2. #
  3. use strict;
  4. my @palabras;
  5.  
  6. open(FH, '< todo.txt') or die $!;  #abre todo.txt en modo lectura
  7.  
  8. while(<FH>) {
  9.     push @palabras, split q[ ] ;
  10. }
  11. print join "\n", @palabras ;
  12.  
  13. close FH;
  14.  
  15.  
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


# --- todo.txt contiene
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
ficovh@thinkpad:~/perl$ cat todo.txt
Hola que tal

todo

bien

¿No?

Saludos.
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
ficovh
Perlero nuevo
Perlero nuevo
 
Mensajes: 13
Registrado: 2007-04-11 20:37 @900


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 0 invitados