| Server IP : 74.208.236.79 / Your IP : 216.73.216.46 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 SOAP::Lite;
$s = SOAP::Lite
-> uri('http://localhost/My/Parameters')
-> proxy('http://localhost/soap')
;
use Benchmark;
$s->echo; # ignore the first call
Benchmark::cmpthese(10, {
'nocompress' => sub { $s->transport->options({}); $s->echo(1 x 100000) },
'compress' => sub { $s->transport->options({compress_threshold => 10000}); $s->echo(1 x 100000) },
})