Foro - Perl en Español

por **split_code** » 2011-07-06 04:10 @215

Hola, tengo un problema: tengo un listado a tratar con esta pinta, guardado en la variable $users:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Administrador            admintivoli              Asistente de ayuda

ASPNET                   Guest                    SUPPORT_388945a0

tecnico                  tmersrvd                 USMCAFEEColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Con el siguiente código, voy metiendo en $campo cada una de las columnas, pero en el caso de "Asistente de ayuda" como tiene espacios, no funciona.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @lista = split(/\s+/, $usrs);
foreach my $campo(@lista){
        print "$campo\n";
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¿Cómo podría hacer para meter en $campo "Asistente de ayuda", con los espacios?

#!/usr/bin/perl
use Modern::Perl;               # somos modernos
use utf8;                       # este programa está escrito en utf8
use autodie;                    # es mejor morir que regresar con deshonor (proverbio Klingon)
use open qw(:utf8 :std);        # la salida y la entrada estándar serán en utf8
 
use File::Slurp;
 
my $users = read_file('kk.txt');        # leemos el fichero
 
my @users = split /\n/, $users;         # lo dividimos en líneas
 
for my $línea (@users) {                # para todas las líneas
 
    my @campos = unpack "(A25)*", $línea;      # desempaquetamos
    
    say '[', join('][', @campos), ']';         # comprobamos
}
 
__END__
[Administrador][admintivoli][Asistente de ayuda]
[ASPNET][Guest][SUPPORT_388945a0]
[tecnico][tmersrvd][USMCAFEE]
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Incluso nos quita los caracteres sobrantes.

En el unpack() estoy indicando que cada $línea se compone de un conjunto (()*) de campos que tienen hasta 25 caracteres (A25) rellenados con blancos, que es justo lo que tenemos.

por **split_code** » 2011-07-06 05:25 @267

Cuanto me queda aún por aprender de Perl...

Eres un crack, ¡gracias!

Foro - Perl en Español

Excepcion en campos con split

Excepcion en campos con split

Publicidad

Re: Excepcion en campos con split

Re: Excepcion en campos con split

¿Quién está conectado?