What is wrong ? I used copy&paste from cpan: SOAP::SOM
but the code doesn't work for me
#!c:/xampp/perl/bin/perl
use warnings;
use strict;
use SOAP::Lite;
use Data::Dumper qw/Dumper/;
my $xml = <<END_XML;
<foo>
<person>
<foo>123</foo>
<foo>456</foo>
</person>
<person>
<foo>789</foo>
<foo>012</foo>
</person>
</foo>
END_XML
my $som = SOAP::Deserializer->deserialize($xml);
my $i = 0;
foreach my $a ($som->dataof("//person/*")) {
$i++;
my $j = 0;
foreach my $b ($som->dataof("//person/[$i]/*")) {
$j++;
print 1;
}
}
print "Done.\n";
--
===================
---- Chanan Berler ----
===================
_______________________________________________
Perl mailing list
[email protected]
http://mail.perl.org.il/mailman/listinfo/perl
