Foro - Perl en Español

Buenas,

Estoy analizando unos archivos y ahora me he encontrado con uno un poco particular, con una estructura así:



Las columnas, como se aprecia, siempre van en la misma posición, es decir, tienen un tamaño fijo. La separación entre las columnas, son espacios (\s).

He intentado hacer algo como


Pero no funciona, ya que la columna nº 2, siempre contiene algún espacio entre sus datos. Además, también hay columnas que pueden aparecer sus datos.

Después he estado trasteando con expresiones regulares, pero no consigo dar con una que me funcione

He intentado usar unpack(), pero sin éxito también, ya que la longitud de cada columna es diferente, y no puedo decirle que me trocee por campos ASCII de x caracteres >.<

Lo único que se me ha ocurrido es crear un array por línea, y acceder a los elementos $array[$inicio_columna] - $array[$fin_columna] ... y el código estaba quedando sencillamente horrible.

¿Se os ocurre alguna forma mejor para hacerlo teniendo en cuenta que las columnas siempre empiezan en la misma posición?

Sólo había usado unpack() en una ocasión, y desde luego no era consciente de las cosas que se pueden hacer con él el caso es que estaba mirando documentación de unpack() y todo me parecía bastante críptico, no lo comprendía muy bien...

Creía que solo se le podía especificar una agrupación de caracteres... vaya iluso

Resulta que al final era bastante simple la solución a mi problema,

He solucionado la papeleta haciendo esto:


(donde los puntos suspensivos son más agrupaciones () del número de caracteres que me interesan)

Gracias de todas formas, ¡lo pongo por si a alguien le puede servir en el futuro!