my $debug_file = "F:/Interwoven/OpenDeployNG/solutions/perl/comm/a +bc/home_edit_glblcnt.log"; open(OUT, ">$debug_file"); my $xml = XML::Simple->new(); my $shoeConfig = $xml->XMLin('f:\\inetpub\\ecomm-static\\us\\html\ +\mi_home_page\\home_flash.xml'); print OUT Dumper($shoeConfig); foreach my $shoe(@{$shoeConfig->{ShoeBank}{Shoe}}){ my $img = $shoe->{Image}; my $swf = $shoe->{MainClip}; print OUT "\img str - ".$img; print OUT "\swf str - ".$swf; }
In reply to Re^2: Problem with parsing an XML using XML::Simple
by Sidd
in thread Problem with parsing an XML using XML::Simple
by Sidd
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |