| Server IP : 74.208.236.79 / Your IP : 216.73.217.104 Web Server : Apache System : Linux infongp-us50 4.4.400-icpu-108 #2 SMP Wed Feb 11 10:12:42 UTC 2026 x86_64 User : u93192080 ( 6162215) PHP Version : 8.4.22 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /kunden/usr/share/doc/libsoap-lite-perl/examples/ |
Upload File : |
#!/usr/bin/perl -w
#!d:\perl\bin\perl.exe
# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
use strict;
use SOAP::Lite;
use Text::Wrap;
my $res = SOAP::Lite
-> uri('urn:vgx-joke')
-> proxy('http://services.xmltoday.com/vx_engine/soap-trigger.pperl')
-> JokeOfTheDay
;
die $res->faultstring if $res->fault;
printf "%s [%s]\n", $res->result->{title}, $res->result->{score};
print wrap("\t", '', split( /\n/, $res->result->{text})), "\n";