Foro - Perl en Español

Buenas tardes:

En primer lugar quería dar las gracias a las personas que intervienen en los foros. Soy nueva y todavía no sé prácticamente nada de Perl, pero necesito urgentemente crear un script. Si alguien pudiese ayudarme le estaría muy agradecida. Seguro que es algo muy simple, pero no tengo conocimientos y lo veo como imposible. Lo explico a continuación:

Necesito dividir en dos archivos un archivo en formato .txt.

El archivo tiene el siguiente contenido:



Es decir, necesito crear dos archivos: uno con la información de la izquierda del punto y coma (donde la primera línea es "Source") y otro con la información de la derecha del punto y coma (donde la primera línea es "Target")

Supongo que las órdenes que hay que darle al script son las siguientes:

- Dividir el archivo en dos archivos a partir del punto y coma que no se encuentra entre comillas (ya que en el resto del documento puede haber algún otro punto y coma)
- Se creará el archivo 1, que contendrá la información de la izquierda y se le reconocerá porque la primera línea es "Source"
- Se creará el archivo 2, que contendrá la información de la derecha y se le reconocerá porque la primera línea es "Target"

Los nuevos archivos deberían tener el siguiente aspecto:

ARCHIVO 1


ARCHIVO 2


Si alguien me pudiese ayudar... ¡MUCHÍSIMAS GRACIAS!

Bienvenida a los foros de Perl en Español, tesamc.

Puedes iniciar el programa con dos open() a los archivos que quieres escribir.
Luego, un tercer open() para abrir el archivo a tratar.
Vas leyendo por líneas.
A cada línea, la partes en dos usando split(), y como expresión de corte, /";"/.
Cada parte la mandas a cada archivo de salida.
Terminas el bucle y cierras archivos.

Gracias, explorer.

Veré qué puedo hacer. Un saludo,

=)

¿Alguien más se anima a encontrar una solución?