Foro - Perl en Español

Hay un error sintáctico en la línea 16. Falta un ';' entre las sentencias.

Y hay un error lógico: estás usando la misma variable $FITX para dos usos distintos.

El error es que en la línea 28 estás intentando leer una línea del archivo asociado a $FITX, pero resulta que $FITX no es un gestor de archivo, sino un objeto XML::Path, tal como lo tienes puesto en la línea 16.

Entonces... da la impresión de que en la línea 28 quieres hacer referencia a la variable $FITX que definiste en la línea 5. El problema es que, para Perl, en la línea 28, la que tiene efecto es la creada en la línea 16.

Así que... el consejo es que le cambies de nombre a una de las dos variables. Por ejemplo, en las líneas 16 y 18, en lugar de usar $FITX, le puedes poner $FITXA.

Tampoco me gusta mucho que tengas el open() fuera de la subrutina donde lees las líneas. Es mejor tener el trío open, read y close en el mismo contexto (dentro de las mismas llaves).