Re: XML::Simple question

Assuming $xmlconfig looks something like:

my $xmlconfig =
{
    'order' => {
        'item-info' => {
            'batch' => {
                'batch-member' => {
                    'aid' => {}
                }
            }
        }
    }
};
[download]

'batch-member' is hash reference, and not an array reference. Check the three lines after the while loop dereferencing $i:

while(my $batch_aid = $xmlconfig->{order}->{'item-info'}->{batch}->{'b
+atch-member'}->{aid}){
  my $batch_pii = $xmlconfig->{order}->{'item-info'}->{batch}->{'batch
+-member'}->{$i}->{'pii'};

  my $batch_pit = $xmlconfig->{order}->{'item-info'}->{batch}->{'batch
+-member'}->{$i}->{'pit'};
  my $batch_doi = $xmlconfig->{order}->{'item-info'}->{batch}->{'batch
+-member'}->{$i}->{'doi'};
  

  $orderin{$batch_aid} = { 'pit'  => $batch_pit,
                           'pii'  => $batch_pii,
                           'doi'  => $batch_doi,
                         };


  my $Eextra='';
  $i++;
  $orderin{subitem}='Yes';

}
[download]

Comment on Re: XML::Simple question Select or Download Code

Replies are listed 'Best First'.

Re^2: XML::Simple question
by raj_monk (Novice) on Aug 02, 2009 at 11:37 UTC

$xmlconfig = XMLin($xml,ForceArray => [qw{batch-member}]);
my $count= (@{$xmlconfig->{order}->{'item-info'}->{batch}->{'batch-mem
+ber'}});
#print $count;

for ($i=0; $i<=$count; $i++ ){
  my $batch_aid = $xmlconfig->{order}->{'item-info'}->{batch}->{'batch
+-member'}->[$i]->{'aid'};
  my $batch_pii = $xmlconfig->{order}->{'item-info'}->{batch}->{'batch
+-member'}->[$i]->{'pii'};
  my $batch_newpii=$batch_pii;
  $batch_newpii=~s/[^A-z0-9]//gi;
  
  my $batch_pit = $xmlconfig->{order}->{'item-info'}->{batch}->{'batch
+-member'}->[$i]->{'pit'};
  my $batch_doi = $xmlconfig->{order}->{'item-info'}->{batch}->{'batch
+-member'}->[$i]->{'doi'};

  $orderin{$batch_aid} = { 'pit'  => $batch_pit,
                           'pii'  => $batch_pii,
                           'doi'  => $batch_doi,
                         };
  my $Eextra='';
  $i++;
  $orderin{subitem}='Yes';


}
[download]

[reply]
[d/l]


We don't bite newbies here... much
	PerlMonks