19288 19289 60107 71897

Blabla1 Blabla2 Bla M�nchen Bla�rm B�R

-8423 -8426 -8425 -8428

2015-11-23T09:32:23 2015-11-26T14:55:52 2015-11-26T08:07:26 2015-11-27T09:26:25

2015-11-23T09:30:54 2015-11-26T14:52:06 2015-11-25T10:33:27 2015-11-27T09:24:05

##

$VAR1 = {
          'ARRAY(0x2c16e08)' => undef,
          '0' => '',
          'ARRAY(0x2f42168)' => [
                                  'Blabla1',
                                  'Blabla2',
                                  "Bla M\x{fc}nchen",
                                  "Bla\x{fc}rm B\x{c4}R"
                                ],
          'ARRAY(0x2f39680)' => [
                                  '2015-11-23T09:32:23',
                                  '2015-11-26T14:55:52',
                                  '2015-11-26T08:07:26',
                                  '2015-11-27T09:26:25'
                                ]
        };

##

##

#!/usr/bin/perl

use Data::Dumper;
use SOAP::Lite +trace => [ transport => \&log_message ];

sub log_message {
   my ($in) = @_;
   my ($cont) = $in->content;
   $cont =~ s/>\nservice('http://192.168.0.13:8181/4dwsdl');

$soap->envprefix('SOAP-ENV');
$soap->encprefix('SOAP-ENC');
$soap->soapversion('1.1');


my %result	= $soap->SOAP_GetFirmenliste(
 									'00',
 									'SOAPTest',
 									'soaptest',
 									'0000-00-00',
 									'2015-10-01'
 									);
 									
print Dumper(\%result);
 

exit 0;