Re: Get variables value in Perl

Fábio Berbert de Paula wrote:
> ---
> #!/usr/bin/perl -w
>
> my $sessionId = "589484";
> my $login = "";
>
> use SOAP::Lite +autodispatch =>
>    service => 'http://mydomain.com/Dispatcher.wsdl';
>
> getLogin($sessionId, $login);
>
> #print SOAP::Lite->self->call->result;
> print "The login is: $login\n";
> ---
>
> I just know that the service has the method getLogin, that
> receive the $sessionId value and return the login value
> to app. client. This code returns null value to $login.
> How can I do it? What's wrong?

Well $login is the empty string (not null) because you never assign to it. If
getLogin() returns the login, then you ought to assign there.

=====
#!/usr/bin/perl -w
use SOAP::Lite +autodispatch =>
                 service      => 'http://mydomain.com/Dispatcher.wsdl';

my $sessionId = 589484;
my $login = getLogin($sessionId);
print "The login is: $login\n";
=====

Does that work better?

--
Robin Berjon <[email protected]>
Research Scientist, Expway      http://expway.com/
7FC0 6F5F D864 EFB8 08CE  8E74 58E6 D5DB 4889 2488