Foro - Perl en Español

Hola.

Tengo un archivo con el siguiente formato
>GW156IX01BW18G length=114 xy=0669_2046 region=1 run=R_2011_02_01_18_40_56_
40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 33 30 28 28 28 28
>GW156IX01AUUGH length=76 xy=0234_0799 region=1 run=R_2011_02_01_18_40_56_
40 40 40 40 40 40 40 40 40 39 40 27 26 16 16 16 26 29 14 26 21 21 21 21
>GW156IX01AOII3 length=113 xy=0162_0317 region=1 run=R_2011_02_01_18_40_56_
4 9 40 40 40 40 40 40 40 40 40 39 27 27 27 40 40 40 40 40 40 40
>GW156IX01BZQTZ length=72 xy=0700_0261 region=1 run=R_2011_02_01_18_40_56_
36 40 36 33 37 32 30 27 30 26 29 15 12 12 12 11 15 16 11 11 11 18 11 11 12

y me gustaría eliminar de cada fila de números los cuatro primeros números. Mi idea inicial era eliminar los doce primeros caracteres de cada línea (cuatro números de dos dígitos más su espacio posterior).


pero en algunos casos los números son de un dígito como podéis ver en negrita. y por tanto no funciona en esos casos. He pensado en eliminar contando espacios en blanco, de tal manera que me elimine todo hasta él incluyendo el cuarto espacio, pero ¿cómo puedo poner esto en código?

Gracias.

D.

Es mejor aprovecharse del hecho de que se tratan de campos separados por columnas, por lo que puedes obtener lo que quieres de forma sencilla, e independiente de cómo cambie el fichero.

Por lo que parece, lo que quieres es quitar las primeras cuatro columnas.

Esta es otra forma de hacerlo:

Comentarios: usamos split() para que corte la $línea en cinco partes (cortando por los espacios en blanco). Las cuatro primeras son desechadas (asignadas a undef es lo mismo que tirarlas a la basura). Pero la quinta es lo que contiene la línea desde el quinto campo hasta el final, por lo que ahí tenemos el $resto_línea, que sacaremos fuera.

¡Fenomenal solución! Muchas gracias, explorer.

Hola, solo por agregar, tal vez te sirva algo como esto:



o incluso:


Ah, cada vez me gusta más Perl

Saludos.

Ya te digo... creo que es la primera vez en mi vida que veo usar una expresión regular de esa manera...

Requiere un poco de explicación, para el neófito.

Una expresión regular, en contexto escalar, devuelve verdadero o falso, indicando si el patrón de búsqueda ha coincidido o no con la cadena de prueba. Pero, en contexto de lista, devuelve todos los elementos capturados por los paréntesis de captura.

En este caso, la cadena de prueba es la variable por defecto, $_, aunque no se vea. Y el contexto es de lista, gracias a los paréntesis que rodean a la expresión regular.

Los paréntesis devuelven todos los elementos capturados, que en este caso solo es uno (el resto de la línea a partir de la quinta columna), así que lo que recibe print() no es un escalar (un trozo de cadena), sino una lista de valores compuesto por un único valor, que es el trozo de cadena.

Bueno, el caso es que obtenemos lo que queremos, aunque de forma poco común. Pero válida.

Solo comentar, finalmente, que se puede reescribir esa expresión regular a algo como esto: m/(?:\d+\s+){4}(.*)/. El '(?:...)' indica sólo agrupamiento, no captura. Y el '{4}' indica el número de repeticiones de lo que le precede.

explorer escribiste:Ya te digo... creo que es la primera vez en mi vida que veo usar una expresión regular de esa manera...

No sé si eso es bueno o malo.

Sé que la sentencia es algo críptica o algo difícil de leer, y claro, no es recomendable usarla pero solo la uso para aprender. Un amigo programador me recomendó que tratara de usar éstas solo por aprender, porque frecuentemente son las que exigen más análisis.

explorer escribiste:Solo comentar, finalmente, que se puede reescribir esa expresión regular a algo como esto: m/(?:\d+\s+){4}(.*)/. El '(?:...)' indica sólo agrupamiento, no captura. Y el '{4}' indica el número de repeticiones de lo que le precede.

No sabía que se pudieran usar así, sin duda queda más bonito.

Saludos.