2007년 6월 18일 월요일

perl에서 web service읭 wsdl사용

use SOAP::Lite;

$a = 45;
$b = 55;
print "Adding values ", $a, " and ", $b, "\n";
print SOAP::Lite
    -> service('file://c:/voices/perl/service1.wsdl')
    -> Add($a, $b);

#===============================================

파일일 경우엔 위와 같이 사용
http일 경우엔 http://host/voices/perl/service1.wsdl
로 사용한다.

댓글 없음:

댓글 쓰기