Thanks for your help. When I try and run this code after installing warnings::Everywhere I get the following errors.
Use of uninitialized value $_[0] in pattern match (m//) at C:/Strawber
+ry/perl/si
te/lib/SOAP/Lite.pm line 340.
Use of uninitialized value in sprintf at C:/Strawberry/perl/site/lib/S
+OAP/Lite.p
m line 3612.
Press any key to continue . . .
I have also tried another piece of code to see what happens and this one returns no errors but it also does not output anything other that the test points I put in. This uses the WSDL on the page.
#!/usr/bin/perl -w
use strict;
use diagnostics;
use warnings;
use Data::Dumper;
eval {
require SOAP::Lite;
};
die "Fehler:\n$@\n\n" if $@;
my $soap = SOAP::Lite->new();
print "test \n";
my $service = $soap->service('http://192.168.1.100/AbacusWebService/Se
+rviceCashPoint.asmx?wsdl');
print Dumper($service->getCardInfo('ws','ws','45','pm01001011000000003
+7'));
print "test \n";
|