Perl 調用 DotNet web service

近期的一個項目要用perl的soap的client 調用 DotNet的soap service。研究了一下，前期遇到點小麻煩，經過努力最終還是可以了。

 

代碼：

      my $soap = SOAP::Lite ->uri('http://tempuri.org/') #webservice的名字空間，這個可以訪問webservice的wsdl看說明 ->on_action(sub {join '/', 'http://tempuri.org', $_[1]} ) # perl默認的分割符是# ，來訪問服務與方法的，但是dotnet需要用 / 來分割，這行在這裏必要。 ->proxy('http://www.xxx.xxx.com/xxx.asmx); #服務的uri my $str = 'ABCDEFG'; my @cc = ( SOAP::Data->name('param')->value($str)->type('string'), #這個,比較重要，聲明方法的參數以及類型 ); my $result = $soap->Method(@cc); #需要調用的webservice方法 unless ($result->fault) { print $result->result(); return; } } else { print $result->faultcode; print $result->faultstring; }