Привет!
Хочу через perl используя SOAP::Lite вызвать paymentUpdate, но пока что то не очень. Может кто делал уже и поделится кусочком кода? В примерах есть PHP, а вот Perl'а нет.

print $client->call('paymentUpdate',$pay);

это два самопальных класса


package Payment;

use strict;
our $id = -1;
our $comment = "";
our $contractId = 0;
our $sum = 0;
our $summa = 0;
our $typeId = 0;
our $userId = 0;
our $date = "";
our $timeChange = "";

sub new {
my $class = shift;
my $self = bless {} , $class;
return $self
}

1;


package paymentUpdate;

use strict;

our $payment;
our $distribution;

sub new {
my $class = shift;
my $self = bless {} , $class;
return $self
}
1;

Akhmat, спасибо большое попробую и это вариант!

I was having the same problem. I made it work with the following two changes:

Name your arguments as in the XSD (http://localhost:8080/tomcat/calculator?xsd=1)
Don't use the default namespace, but a namespace prefix for the SOAP method (ns() method).
Example code:

my $soap = SOAP::Lite
-> proxy('http://localhost:8080/tomcat/calculator')
-> ns ('http://operation.calculator/');

my $response = $soap->call('add', SOAP::Data->name( arg0 => 'Peter Pan'));

да. почему старые? планируется их убирать?

плохо. все расширения мои работают в основном так. почему веб сервисы? когдато смотрел их, хрень громоздкая показалось.

upd
в плане чем лучше они чем старый вариант?

вот тут есть статейка про это :
http://habrahabr.ru/post/75248/

плохо. все расширения мои работают в основном так. почему веб сервисы? когдато смотрел их, хрень громоздкая показалось.

upd
в плане чем лучше они чем старый вариант?

http://stackoverflow.com/questions/6797030/perl-client-to-jax-ws-java-server-issue

В этом как и во многих других примерах , передаются обычные строковые параметры. А ведь PaymentUpdate требует paymentUpdate который в свою очередь состоит из payment и этот в свою очередь из своих аттрибутов. Как передать такой аргумент ?
пробовал
$v={'id'=>'-1','userId'=>'0','contractId'=>$contract_id,typeId'=>'3','date'=>$now,'comment'=>"fdgdf",'sum'=>$sum,'timeChange'=>$now};
$var = {'paymentUpdate'=>$v}
$client->call('paymentUpdate',$var);
не работает

пробовал
$client->call('paymentUpdate',SOAP::Data->name('paymentUpdate'=> SOAP::Data->name('id'=>'-1','userId'=>'0','contractId'=>$contract_id, 'typeId'=>'3','date'=>$now,'comment'=>"fdgdf",'sum'=>$sum,'timeChange'=>$now)));
тоже не работает

Handling LoLs (List of Lists, Structs, Objects, or something else)

Processing of complex data structures isn't different in any aspect from usual processing in your programming language. General rule is simple: 'Treat the result of SOAP call as variable of specified type'.

Next example shows service that works with array of structs (strictly speaking, Perl has no structs. Structs are often emulated with hashes, and that is exactly what is happening here):

8.a. client (lol_serv.pl)

#!perl -w
use SOAP::Lite;
my $result = SOAP::Lite
-> uri('urn:xmethodsServicesManager')
-> proxy('http://www.xmethods.net/soap/servlet/rpcrouter')
-> getAllSOAPServices();
if ($result->fault) {
print $result->faultcode, " ", $result->faultstring, "\n";
} else {
# reference to array of structs is returned
my @listings = @{$result->result};
# @listings is the array of structs
foreach my $listing (@listings) {
print "-----------------------------------------\n";
# print description for every listing
foreach my $key (keys %{$listing}) {
print $key, ": ", $listing->{$key} || '', "\n";
}
}
}
Exactly the same thing is true about structs inside of other structs, list of objects, objects that have lists inside, etc. 'What you return on server side is what you get on client side, and let me know if you get something else.'

(Ok, not always. You MAY get a blessed array even when you return a simple array on the other side and you MAY get a blessed hash when you return a simple one, but it won't change anything in your code, just access it as you usually do).

Access with service description (WSDL)

Although support for WSDL 1.1 is limited in SOAP::Lite for now (service description may work in some cases, but hasn't been extensively tested), you can access services that don't have complex types in their description:

6.a. client (wsdl_oo.pl)
#!perl -w
use SOAP::Lite;
print SOAP::Lite
-> service('http://www.xmethods.net/sd/StockQuoteService.wsdl')
-> getQuote('MSFT');