Using perl Syntax Highlighting
#!C:/Perl/bin/PERL58~1.EXE -w
use XML::Simple;
$programa="Test1.MiX";
my $xs = new XML::Simple();
open my $XML, '>:encoding(iso-8859-1)', 'archivo5.xml' or die "No se pudo abrir archivo: $!";
print {$XML}
my $ref = $xs->XMLin("<p> <programa> $programa </programa></p>");
my $xml = $xs->XMLout($ref);
print $xml;
exit;
close $XML;
use XML::Simple;
$programa="Test1.MiX";
my $xs = new XML::Simple();
open my $XML, '>:encoding(iso-8859-1)', 'archivo5.xml' or die "No se pudo abrir archivo: $!";
print {$XML}
my $ref = $xs->XMLin("<p> <programa> $programa </programa></p>");
my $xml = $xs->XMLout($ref);
print $xml;
exit;
close $XML;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
pero lo que necesito que contenga el archivo .xml es lo siguiente:
- Código: Seleccionar todo
<programa> $programa</programa>
<lineas> $lineas </lineas>
<variables> $variables </variables>
<operadores> $operadores</operadores>
pero esto no lo consigo, debido a que no logro escribir más de una línea en el xml; aparte, éste, al abrirlo me da un error:
- Código: Seleccionar todo
XML document must have a top level element. Error processing resource....
Es mi primera vez que trabajo con .xml y Perl.
¡Cualquier ayuda es bien recibida!