Perl client: by hand
use SOAP::Lite;
use Arachna::SOAP::Vector;

my $soap = SOAP::Lite
  -> proxy('http://localhost:8080/fogkids/services/ApparelItem')
  -> uri('urn:service.fogkids.arachna.com');

my $list = $soap->getCatalogList()->result;
print 'type: ', ref $list, "\n"; # ARRAY
for my $bean (@$list) {
    print ref $bean,"\n";
    while (my($key,$value)=each %$bean) {
        print "\t$key => $value\n";
    }
}
So $list is a reference to our SOAP response, a Perl ARRAY.
Slide 45 of 58 Contents
  1 |   2 |   3 |   4 |   5 |   6 |   7 |   8 |   9 | 10
11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20
21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30
31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40
41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50
51 | 52 | 53 | 54 | 55 | 56 | 57 | 58
www.arachna.com > Educational Resources > Tutorials > O'Reilly Open Source Conference (2002) > Exchanging Objects and Messages With SOAP

spidaman
© 2002-2009 Ian Kallen | Copyright Notice