Re: [Xml-compile] repeat tags with XML::Schema

[Hugues Max]

"Alors la chapeau..."
thanks very much it's working

One question
in
push @pmtids, + {PmtId => {
what mean this +

normal push is

push(@pmtids, $value);

and what is the sens of \@ instead of @ in  ( this is a ref to.. ?)

$s->{CstmrDrctDbtInitn}{PmtInf}{DrctDbtTxInf} = \@pmtids;





Le 25/06/2013 12:36, Mark Overmeer a écrit :

* Hugues Max (hugues...@gmail.com) [130625 09:21]:

I use XML::Compile::Schema
my $schema = XML::Compile::Schema->new('./2.xsd');

my $write = $schema->compile(WRITER =>
'{urn:iso:std:iso:20022:tech:xsd:2}Document', use_default_namespace
=> 1, include_namespaces => 1);

You can better start with the ::Cache:

   my $schema = XML::Compile::Cache->new('./2.xsd'
    , prefixes => [ '' => 'urn:iso:std:iso:20022:tech:xsd:2' ]
    );

   my $write  = $schema->compile(WRITER => 'Document');

$s->{CstmrDrctDbtInitn}->{PmtInf}->{DrctDbtTxInf}->{PmtId}->{InstrId} = $a;
$s->{CstmrDrctDbtInitn}->{PmtInf}->{DrctDbtTxInf}->{PmtId}->{EndToEndId}
= $b;

I would advice:

    my $pmtid = $s->{CstmrDrctDbtInitn}{PmtInf}{DrctDbtTxInf}{PmtId} ||= {};
    $pmtid->{InstrId}    = $a;
    $pmtid->{EndToEndId} = $b;

    my $pmtid = $s->{CstmrDrctDbtInitn}{PmtInf}{DrctDbtTxInf}{PmtId}
              = +{ InstrId => $a, EndToEndId => $b };

If I do that, in my xml file there are only $c and $d
If I create manually $s using [..] it'working

my $s = CstmrDrctDbtInitn => {  PmtInf => { DrctDbtTxInf =>
[
{PmtId     => { InstrId => '1', EndToEndId =>'ref1'}},
{PmtId     => { InstrId => '2', EndToEndId =>'ref2'}}
]}};

   my @pmtids;
   push @pmtids, +{ PmtId => {InstrId => 1, EndToEndId =>'ref1'}};
   push @pmtids, +{ PmtId => {InstrId => 2, EndToEndId =>'ref2'}};

   $s->{CstmrDrctDbtInitn}{PmtInf}{DrctDbtTxInf} = \@pmtid;

_______________________________________________
Xml-compile mailing list
Xml-compile@lists.scsys.co.uk
http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/xml-compile