Foro - Perl en Español

por **slopal** » 2006-02-20 13:57 @623

Otra preguntilla...

Para leer la primera línea de un fichero en una variable... haría $línea=<FICHERO>;

¿Y para leer todo el fichero menos la primera línea? ¿Hay alguna manera directa sin tener que hacer un bucle línea a línea? Necesito algo más rápido...

¡¡Gracias!!

$cap = <CADENA>;  #cojo la primera línea del fichero porque me interesa
 
# ahora quiero el resto en un array sin espacios y todo en mayúsculas, dime si hago bien
 
my @cadena = <CADENA>; 
shift @cadena;       # ¡si hago esto me dice que esta vacía!
my $cadena = join '',@cadena;
$cadena=~ tr/[a-z]/[A-Z]/;    # aquí la pongo "bonita"
$cadena =~ s/\s//g;
@cadena = split //, $cadena;  # aquí lo vuelvo a poner en un array
 
# ahora quiero consultar el tamaño del array
$mida_cadena = $#cadena - $[ + 1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y creo que sin el shift() funciona... pero me da la sensación que se podría optimizar todo este lío de ahora lo hago cadena, luego variable y luego cadena otra vez...

¡Muchas gracias, en serio!

por **explorer** » 2006-02-20 15:24 @683

Pues debería funcionar también así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @cadena = <CADENA>;
my $cap = shift @cadena;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Debería funcionar si el fichero es un fichero de texto con terminaciones de línea normales.

En cuanto a lo de hacerla bonita... no queda más remedio que hacer un bucle...

Sintáxis: [ Descargar ] [ Ocultar ]

@cadena = map { s/\s//g; uc($_) } @cadena;

Lo que hacemos aquí, para cada elemento ($_) de @cadena, es mapearlo en otro valor. Lo que hacemos es primero quitarle los espacios en blanco (s///) y luego lo pasamos a mayúsculas (uc()). El resultado queda en la misma @cadena.

Si te sale que @cadena está vacía, algo debe de pasar en el momento de la lectura del fichero. ¿No habrás redefinido la variable $/ ?

por **slopal** » 2006-02-20 15:53 @703

Ahora me va bien

Por cierto, una última cosa

¿cómo "saco" el tamaño de la cadena? Porque la forma que tenía de acceder anterior:

$mida_cadena = $#cadena - $[ + 1;

Ya no me sirve

por **explorer** » 2006-02-20 16:56 @747

¿Y por qué no te vale?

$#cadena+1 debería seguir devolviéndote el número de elementos del array @cadena...

Es más... sería más cómodo hacer esto:

$mida_cadena = @cadena;

por **slopal** » 2006-02-20 17:08 @755

Ahora que he estado haciendo pruebas... eso sí que calculaba bien el tamaño...

Lo que pasa es que al hacer

@cadena = map { s/\s//g; uc($_) } @cadena;

Y luego calculo el tamaño... es como si además de los caracteres, contará los saltos de línea que habían... o algo así :S

por **explorer** » 2006-02-20 17:12 @758

Arreglado...

Código: Seleccionar todo: @cadena = map { chomp; s/\s//g; uc($_) } @cadena;

por **explorer** » 2006-02-20 17:36 @775

¿Pero quieres la longitud de toda la cadena o del número de líneas leídas?

por **slopal** » 2006-02-20 17:43 @779

explorer escribiste:¿Pero quieres la longitud de toda la cadena o del número de líneas leídas?

Quiero el número de elementos de la cadena, una vez quitamos la primera línea del fichero (bueno, esto ya lo hace bien, claro) y una vez quitamos los espacios sobrantes (espacios, intros, etc...). ¡Ah! y lo del chomp() no me sirve

Gracias, ¡eh!

Foro - Perl en Español

Leer fichero menos la primera línea

Leer fichero menos la primera línea

Publicidad

Re: Leer fichero menos la primera línea

Re: Leer fichero menos la primera línea

Re: Leer fichero menos la primera línea

Re: Leer fichero menos la primera línea

Re: Leer fichero menos la primera línea

¿Quién está conectado?