Ein Taschenrechner in Perl - Client mit WSDL

CallAddWSDL.pl

#!/usr/local/bin/perl -w use strict; use SOAP::Lite; print "result=", SOAP::Lite->uri("http://localhost/Calulator") ->proxy("http://localhost/axis/Calc.jws") ->add(@ARGV[0, 1]) ->result, "\n"; my $service = SOAP::Lite->service('http://localhost/axis/Calc.jws?wsdl'); print "result=", $service->add(@ARGV[0, 1]), "\n";

Das Gleiche nochmals --- aber mit WSDL