import SOAP-WSDL 2.00.02 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.02 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.02.tar.gz
This commit is contained in:
Martin Kutter
committed by
Michael G. Schwern
Michael G. Schwern
parent
745ce925c1
commit
915ee03cbe
59
benchmark/MEMORY_FOOTPRINT
Normal file
59
benchmark/MEMORY_FOOTPRINT
Normal file
@@ -0,0 +1,59 @@
|
||||
Memory footprints for example/ scripts comparing SOAP::WSDL, SOAP::Lite and
|
||||
XML::Compile::SOAP
|
||||
|
||||
Results with perl-5.8.8 on Ubuntu 8.04 (x86):
|
||||
|
||||
PID %CPU %MEM VSZ RSS COMMAND
|
||||
10183 12.0 1.1 14292 11492 perl -I../lib hello.pl
|
||||
10554 7.2 0.9 12636 9828 perl hello_lite.pl
|
||||
10224 17.5 1.6 20780 17012 perl hello_compile.pl
|
||||
10287 25.0 1.1 14680 11776 perl -I../lib person.pl
|
||||
10313 24.0 1.6 21068 17312 perl person_compile.pl
|
||||
|
||||
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
|
||||
Platform:
|
||||
osname=linux, osvers=2.6.15.7, archname=i486-linux-gnu-thread-multi
|
||||
uname='linux palmer 2.6.15.7 #1 smp thu sep 7 19:42:20 utc 2006 i686 gnulinux '
|
||||
config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i486-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.8 -Darchlib=/usr/lib/perl/5.8 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.8.8 -Dsitearch=/usr/local/lib/perl/5.8.8 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -Duseshrplib -Dlibperl=libperl.so.5.8.8 -Dd_dosuid -des'
|
||||
hint=recommended, useposix=true, d_sigaction=define
|
||||
usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
|
||||
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
|
||||
use64bitint=undef use64bitall=undef uselongdouble=undef
|
||||
usemymalloc=n, bincompat5005=undef
|
||||
Compiler:
|
||||
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
|
||||
optimize='-O2',
|
||||
cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include'
|
||||
ccversion='', gccversion='4.2.3 20071123 (prerelease) (Ubuntu 4.2.2-3ubuntu4)', gccosandvers=''
|
||||
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
|
||||
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
|
||||
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
|
||||
alignbytes=4, prototype=define
|
||||
Linker and Libraries:
|
||||
ld='cc', ldflags =' -L/usr/local/lib'
|
||||
libpth=/usr/local/lib /lib /usr/lib
|
||||
libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
|
||||
perllibs=-ldl -lm -lpthread -lc -lcrypt
|
||||
libc=/lib/libc-2.6.1.so, so=so, useshrplib=true, libperl=libperl.so.5.8.8
|
||||
gnulibc_version='2.6.1'
|
||||
Dynamic Linking:
|
||||
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
|
||||
cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'
|
||||
|
||||
|
||||
Characteristics of this binary (from libperl):
|
||||
Compile-time options: MULTIPLICITY PERL_IMPLICIT_CONTEXT
|
||||
PERL_MALLOC_WRAP THREADS_HAVE_PIDS USE_ITHREADS
|
||||
USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API
|
||||
Built under linux
|
||||
Compiled at Nov 27 2007 10:44:36
|
||||
@INC:
|
||||
/etc/perl
|
||||
/usr/local/lib/perl/5.8.8
|
||||
/usr/local/share/perl/5.8.8
|
||||
/usr/lib/perl5
|
||||
/usr/share/perl5
|
||||
/usr/lib/perl/5.8
|
||||
/usr/share/perl/5.8
|
||||
/usr/local/lib/site_perl
|
||||
.
|
||||
77
benchmark/README
Normal file
77
benchmark/README
Normal file
@@ -0,0 +1,77 @@
|
||||
The benchmark directory includes a bunch of benchmarks. The most notable
|
||||
ones are listed below.
|
||||
|
||||
Comparison benchmarks for SOAP::Lite, SOAP::WSDL, SOAP::WSDL_XS, and
|
||||
XML::Compile::WSDP need all of these installed for the benchmark to
|
||||
work (building and adding to the lib path suffices). All comparison benchmarks
|
||||
only account for the client part of the respective modules - the server part
|
||||
is not benchmarked.
|
||||
|
||||
SOAP::WSDL_XS can be obtained from the project's subversion repository at
|
||||
|
||||
https://soap-wsdl.svn.sourceforge.net/svnroot/SOAP-WSDL/SOAP-WSDL_XS/trunk
|
||||
|
||||
Some benchmarks expect to find the SOAP servers "cgi-bin/person.pl" and
|
||||
"cgi-bin/hello.pl" from the examples directory at
|
||||
http://localhost:81/soap-wsdl-test/person.pl and
|
||||
http://localhost:81/soap-wsdl-test/hello.pl
|
||||
|
||||
If the web services are not set up properly, you're benchmarking error
|
||||
creation times.
|
||||
|
||||
To set up a SOAP server using apache, add the following to your apache config:
|
||||
|
||||
# usually in main config
|
||||
Listen 127.0.0.1:81
|
||||
|
||||
# maybe in a
|
||||
#<VirtualHost 127.0.0.1:81> container
|
||||
#
|
||||
ScriptAlias /soap-wsdl-test/ /PATH_TO/SOAP-WSDL/example/cgi-bin/
|
||||
<Directory "/PATH_TO/SOAP-WSDL/example/cgi-bin">
|
||||
AllowOverride None
|
||||
Order allow,deny
|
||||
Allow from all
|
||||
</Directory>
|
||||
|
||||
Using mod_perl is highly recommended to cut down benchmarking time.
|
||||
|
||||
COMPARISON BENCHMARKS
|
||||
=====================
|
||||
|
||||
01_expat.t
|
||||
----------
|
||||
Benchmarks XML parsing speed between XML::Simple with XML::Parser as backend,
|
||||
SOAP::Lite, SOAP::WSDL outputting objects, SOAP::WSDL outputting hash refs,
|
||||
XML::LibXML with a simple DOM walker outputting hash refs, XML::LibXML
|
||||
outputting the DOM and SOAP::WSDL_XS.
|
||||
|
||||
No web server required.
|
||||
|
||||
This benchmark sheds light on how much performance is - in theory - reachable
|
||||
by each approach: The XML::LibXML (Hash) benchmark converts the DOM into
|
||||
a nested hash using a recursive function. This is - basically - how
|
||||
XML::Compile works. XML::Simple uses XML::Parser's streaming
|
||||
API. SOAP::WSDL uses XML::Parser::Expat, XML::Parser's low-level backend,
|
||||
to create objects or - in the (Hash) variant - nested hashes similar to
|
||||
those created by XML::Simple.
|
||||
SOAP::WSDL_XS uses a libexpat-based XS parser to create perl objects, and
|
||||
XML::LibXML (DOM) creates a C level libxml2 DOM accessible from perl.
|
||||
|
||||
person.pl:
|
||||
----------
|
||||
Sends a empty requests and receives a response of ca. 10kB.
|
||||
Modeled after a common enterprise setup: "Give me a list of person data sets".
|
||||
|
||||
For this benchmark, XML parsing speed is important. XML generation speed is
|
||||
only weighted in the last two runs, and weights around 1/10 of parsing speed.
|
||||
|
||||
hello.pl:
|
||||
---------
|
||||
Sends a request containing name and given name and politely replies
|
||||
"Hello <given name> <name>".
|
||||
An example for very short requests and responses.
|
||||
|
||||
For this example, handling and generating small requests/responses, and
|
||||
transport speed is important. As the XML transmitted is relatively small, the
|
||||
transport layer's overhead is important.
|
||||
24
benchmark/XSD/strftime.pl
Normal file
24
benchmark/XSD/strftime.pl
Normal file
@@ -0,0 +1,24 @@
|
||||
use Benchmark qw(cmpthese);
|
||||
use POSIX ();
|
||||
use Date::Format ();
|
||||
|
||||
my @time_from = localtime;
|
||||
|
||||
print "Comparing POSIX::strftime and Date::Format::strftime '%Y-%m-%dT%H:%M:%S%z'\n\n";
|
||||
print 'POSIX: ', POSIX::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from), "\n";
|
||||
print 'Date::Format: ', Date::Format::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from), "\n";
|
||||
|
||||
|
||||
cmpthese 100000, {
|
||||
POSIX => sub { POSIX::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from) },
|
||||
'Date::Format' => sub { Date::Format::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from) },
|
||||
};
|
||||
|
||||
__END__
|
||||
|
||||
results with perl-5.8.8 on Ubuntu 8.04 on a Thinkpad T42 (1.7GHz Dothan):
|
||||
|
||||
Rate Date::Format POSIX
|
||||
Date::Format 10684/s -- -93%
|
||||
POSIX 153846/s 1340% --
|
||||
|
||||
Reference in New Issue
Block a user