in reply to 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]

Replies are listed 'Best First'.
Re^2: XML::Simple question
by raj_monk (Novice) on Aug 02, 2009 at 11:37 UTC
    Thanks Monks, I have solved by using Forcearray 
    $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]

In Section Seekers of Perl Wisdom