EVOLUTION-MANAGER

Edit File: parametersbyname.pl

#!perl -w #!d:\perl\bin\perl.exe # -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- use SOAP::Lite +autodispatch => uri => 'http://www.soaplite.com/My/Parameters', proxy => 'http://localhost/', # proxy => 'http://localhost/cgi-bin/soap.cgi', # local CGI server # proxy => 'http://localhost/', # local daemon server # proxy => 'http://localhost/soap', # local mod_perl server # proxy => 'https://localhost/soap', # local mod_perl SECURE server # proxy => 'tcp://localhost:82', # local tcp server on_fault => sub { my($soap, $res) = @_; die ref $res ? $res->faultdetail : $soap->transport->status, "\n"; } ; my @parameters = ( SOAP::Data->name(b => 222), SOAP::Data->name(c => 333), SOAP::Data->name(a => 111) ); print "Parameters: ", join(' ', map {$_->value} @parameters), "\n"; print "By order: ", byorder(@parameters), "\n"; print "By name: ", byname(@parameters), "\n";