Using perl Syntax Highlighting
my $xml;
my ($bc,$ag,$cuenta,$fechaope,$cod,$numdocto,$valordoc,$hhmmss,$fcierre,$concepto);
$query1->bind_columns(\$bc,\$ag,\$cuenta,\$fechaope,\$cod,\$numdocto,\$valordoc,\$hhmmss,\$fcierre,\$concepto);
while ( $query1->fetchrow_array) {
push @{$xml->{movimientos}}, {
numero => $bc,
nombre => $cuenta,
apellido => $concepto
}
}
my $xml2 = XMLout($xml,NoAttr => 1, );
print Dumper($xml2);
my ($bc,$ag,$cuenta,$fechaope,$cod,$numdocto,$valordoc,$hhmmss,$fcierre,$concepto);
$query1->bind_columns(\$bc,\$ag,\$cuenta,\$fechaope,\$cod,\$numdocto,\$valordoc,\$hhmmss,\$fcierre,\$concepto);
while ( $query1->fetchrow_array) {
push @{$xml->{movimientos}}, {
numero => $bc,
nombre => $cuenta,
apellido => $concepto
}
}
my $xml2 = XMLout($xml,NoAttr => 1, );
print Dumper($xml2);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
y me tira esto
Using xml Syntax Highlighting
<opt>
<movimientos>
<apellido>PAGO SAT 4019-08360634 </apellido>
<nombre>xxxxxxxx</nombre>
<numero>46</numero>
</movimientos>
<movimientos>
<apellido>PAGO SAT 4019-08541584 </apellido>
<nombre>xxxxxxxxx</nombre>
<numero>46</numero>
</movimientos>
</opt>
<movimientos>
<apellido>PAGO SAT 4019-08360634 </apellido>
<nombre>xxxxxxxx</nombre>
<numero>46</numero>
</movimientos>
<movimientos>
<apellido>PAGO SAT 4019-08541584 </apellido>
<nombre>xxxxxxxxx</nombre>
<numero>46</numero>
</movimientos>
</opt>
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4