Creacion de XML desde TXT para Factura Electronica

[lauser]

Que tal con print?

Código :

open(FILE1, "<datoejemplo.txt");
open(FILE2, ">datoejemplo.xml");
print FILE2 "<?xml version='1.0' encoding='iso-8859-1' ?><mixml>";
while (my $linea = <FILE1>){
   my ($campo1,$campo2,$campo3,$campo4) = split(/\,/,$linea);
   print FILE2 "<record><dato-ejem>$campo1</dato-ejem><indate>$campo2</indate><outdate>$campo3</outdate><conf>$campo4</conf></record>";
}
print FILE2 "</mixml>";
close(FILE1);
close(FILE2);