Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
COM	[ DIR ]	drwxr-xr-x
My	[ DIR ]	drwxr-xr-x
SOAP	[ DIR ]	drwxr-xr-x
UDDI	[ DIR ]	drwxr-xr-x
WSDL	[ DIR ]	drwxr-xr-x
XML	[ DIR ]	drwxr-xr-x
XMLRPC	[ DIR ]	drwxr-xr-x
forms	[ DIR ]	drwxr-xr-x
server	[ DIR ]	drwxr-xr-x
allclients.pl	1.3 KB	-rw-r--r--
authentication.pl	1.1 KB	-rw-r--r--
autoexamples.pl	890 B	-rw-r--r--
chat.pl	1.1 KB	-rw-r--r--
compress.pl	488 B	-rw-r--r--
cookie.pl	458 B	-rw-r--r--
cookieauth.pl	386 B	-rw-r--r--
customschema.pl	3.12 KB	-rw-r--r--
fullsearch.pl	1023 B	-rw-r--r--
getdom.pl	1.77 KB	-rw-r--r--
google.pl	886 B	-rw-r--r--
inline.daemon	672 B	-rw-r--r--
iterator.pl	866 B	-rw-r--r--
joke.pl	469 B	-rw-r--r--
oneliners	187 B	-rw-r--r--
oo-apache.pl	798 B	-rw-r--r--
parametersbyname.pl	979 B	-rw-r--r--
pingpong.pl	1.01 KB	-rw-r--r--
soapmark.pl	1.92 KB	-rw-r--r--
soapsmtp.pl	768 B	-rw-r--r--
tcpclient.pl	572 B	-rw-r--r--
terraserver.pl	1.29 KB	-rw-r--r--
weblog.pl	480 B	-rw-r--r--

Code Editor : soapmark.pl

#!/usr/bin/perl -w
#!d:\perl\bin\perl.exe

use strict;
use Benchmark;
use SOAP::Lite on_fault => sub {my($soap, $res) = @_; die ref $res ? $res->faultdetail : $soap->transport->status, "\n"};
use My::Examples;

my %dests = (
  local              => ['local://localhost/cgi-bin/soap.cgi' => 'http://www.soaplite.com/My/Examples'],
  mod_perl           => ['http://localhost/soap/' => 'http://www.soaplite.com/My/Examples'],
  CGI                => ['http://localhost/cgi-bin/soap.cgi' => 'http://www.soaplite.com/My/Examples'],
  daemon             => ['http://localhost:81/' => 'http://www.soaplite.com/My/Examples'],
  'Apache::Registry' => ['http://localhost/mod_perl/soap.mod_cgi' => 'http://www.soaplite.com/My/Examples'],
  tcpip              => ['tcp://localhost:82' => 'http://www.soaplite.com/My/Examples'],
  direct             => ['' => 'My::Examples'],
);

my $s;

my %tests = (
  simple => sub {$s->getStateName(1)},
  array =>  sub {$s->getStateName((1) x 100)},
  string =>  sub {$s->getStateName(1 x 100)},
);

my $testnum = 3;
my $testtime = 5;
my %result;

print STDERR <<DISCLAIMER;

This test should be used only for comparison different Perl server
implementations running in your environment.

DISCLAIMER

print STDERR "All tests may take up to ", keys(%dests) * keys(%tests) * $testnum * $testtime, " sec\n";

foreach my $dest (keys %dests) {
  my($proxy, $uri) = @{$dests{$dest}};
  $s = $proxy ? SOAP::Lite->proxy($proxy)->uri($uri) : $uri;
  foreach my $test (keys %tests) {
    printf STDERR "%s [%s] ", $dest, $test;
    eval {$tests{$test}->()}; warn('skipped, ', $@), next if $@;
    my($tps) = 0;
    for (1..$testnum) {
      my $r = Benchmark::countit($testtime => $tests{$test});
      my($pu, $ps, $n) = @{$r}[1,2,5];
      $tps += $n / ($pu + $ps);
      print STDERR ".";
    }
    printf STDERR " %.5s call/s\n", $result{$dest}{$test} = $tps / $testnum;
  }
}

${this.title}

Code Editor : soapmark.pl