用SOAP::Lite类传递数组给.NET Web Services代码

用SOAP::Lite类传递数组给.NET Web Services代码
my $soap = SOAP::Lite
-> uri('http://tempuri.org/')
-> on_action(sub {join '', @_})
-> proxy('http://server/test/ruletest.asmx');
my @values = ('FXSDCC1','FXSDCC2','FXSDCC3','FXSDCC4','FXSDCC5');
@params = (SOAP::Data->name('num'=> 10)->attr({xmlns => 'http://tempuri.org/'}),
SOAP::Data->name('array'=> \SOAP::Data->value(
SOAP::Data->name('string'=>@values)
))
->attr({xmlns => 'http://tempuri.org/'})
);
$som = $soap->GetRuleList(@params);
unless ($som ->fault) {
$som -> match('//string');
print join ',', $cat -> valueof(),"\n";
} else {
print $som ->faultcode.$som ->faultstring;
}