Home: Perl Programming Help: Advanced:
Calling a .NET web service from perl script

New User

Mar 15, 2011, 7:09 AM

Views: 3118
Calling a .NET web service from perl script

I tried calling a .NET web service from perl script..
My code is :
#!/usr/bin/perl -w
# hw_client.pl - Hello client
use warnings;
use SOAP::Lite;
my $name = shift;
print "\n\nCalling the SOAP Server to say hello\n\n";
print "The SOAP Server says: ";
print SOAP::Lite
-> uri('urn:Example1')
-> on_action(sub{sprintf '%s/%s', @_ })
-> proxy('http://localhost/HelloWorld.asmx')
-> sayHello(SOAP::Data->name(name => $name)->type->('string')
-> uri('urn:Example1'))
-> result . "\n\n";

I'm getting this error:

Use of uninitialized value in subroutine entry at hello_client.pl line 11.
Undefined subroutine &main:: called at hello_client

I could not find the error pls help me!!!