#! /usr/bin/perl use SOAP::Lite +trace => 'debug'; use Data::Dumper; # .NET web services expect / as a separator # for uri and method. my $lite = SOAP::Lite->new()->on_action(sub { join '/', @_ } ) ->proxy('http://somewhere.net/rjam-request-service/svc/RequestService/3?wsdl') ->readable(1); $response = $lite->call( SOAP::Data->name('fetchAndLock') ->attr({ 'xmlns', 'http://somewhere.net/request/service/3' }), SOAP::Data->name("first")->value(3), SOAP::Data->name("max")->value(1), SOAP::Data->name("provider")->value('homeFolderWin'), SOAP::Data->name("action")->value('bestMatch'), SOAP::Data->name("state")->value('PLACED') ); my $tmp_data = $response->valueof('[1]'); print Dumper($tmp_data); my $lts=$tmp_data->dataof('//fetchAndLockResponse/request/lockedTimes'); #### 3 1 homeFolderWin bestMatch PLACED SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK Connection: close Date: Tue, 14 Aug 2012 12:31:38 GMT Server: IBM_HTTP_Server Content-Language: en-US Content-Type: text/xml; charset=UTF-8 Client-Date: Tue, 14 Aug 2012 12:31:38 GMT Client-Peer: 169.81.175.20:80 Client-Response-Num: 1 Client-Transfer-Encoding: chunked 210 TESTING homefoldertest1241 TODO homeFolderWin bestMatch 1 2012-07-13T16:20:34.993Z PLACED NONE true 43 sid F030624 domain NAEAST Can't call method "dataof" on unblessed reference at test.pl line 28. --------------------------------------------------------------------------------------