Foro - Perl en Español

   my @rows;
   sDB_Select($dbh,$stmt,\@rows,$sub);
   my $dump = Dumper(\@rows);
   print "$dump\n";
   print "<BR>--------------------------------------<BR>\n";
   my $max = scalar(@rows);
   #my  $hash=();
   for ( my $ptr=0; $ptr<$max; $ptr++ ) {
      my $cardActive = 1;
      if ( $rows[$ptr]{dt_inactivated} ne '' )  { $cardActive = 0; }
       my $hash = {
           'patronCard' => {
           'cardId' => $rows[$ptr]{cardnum},
           'cardExp' =>  sDateTimeTos2sDateTime($ini,$rows[$ptr]{dt_validthru}),
           'cardLost' => '0',
           'cardActive' => $cardActive
         }
      };
      $xmlout .= XMLout($hash,AttrIndent => 1, KeepRoot => 1, NoAttr => 1);
   } # end for
   return $xmlout;

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use XML::Simple;

my %xml = (
    Id => 12345,
    Account => {
        Card => [
            {
                cardActive => 1,
                cardExp => '',
                cardId => 777889003666,
                cardLost => 0,
            },
            {
                cardActive => 1,
                cardExp => '',
                cardId => 777889003672,
                cardLost => 0,
            },
        ],
    },
);

print XMLout(\%xml, RootName => 'Info', NoAttr => 1);

__END__