Foro - Perl en Español

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!!

Hay varias formas de hacerlo.

Se me ocurre esta:

:O ¡¡gracias!!

Y... ¿que se guarde en una $variable? Es que necesito aplicarle expresiones regulares tipo "~ tr/[a-z]/[A-Z]/;" y me da error...

(¿o alguna manera de aplicar esta expresión en una lista? :$)

Por cierto el shift(), ¿qué hace exactamente, quita la primera línea?

Yo tengo (ya para poner orden):

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!

Pues debería funcionar también así:

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...

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 $/ ?

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

¿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;

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

Arreglado...

Código: Seleccionar todo

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

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

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!