Changeset 1730

Show
Ignore:
Timestamp:
08/13/08 13:04:05 (4 months ago)
Author:
xkovah
Message:

found the correct way to format the data on the perl side

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • capture-mod/trunk/client.pl

    r1729 r1730  
    44#use SOAP::Lite +trace => 'all'; 
    55use SOAP::Lite; 
     6use Class::Struct; 
     7use Data::Dumper; 
    68 
    7 use Data::Dumper; 
     9struct( ns__myStruct => [f => '$', l => '$'] ); 
    810 
    911$pingDataA = SOAP::Data->name(a => "http://www.cnn.com"); 
    …… 
    3638my $som = $res->junks($structData); 
    3739 
    38 my @hashRes = $som->paramsall; 
     40print "ns__myStruct.first = " . $som->result . "\n"; 
     41print "ns__myStruct.last = " . ($som->paramsout)[0] . "\n"; 
    3942 
    40 join(":", @hashRes); 
    41 print @hashRes; 
     43my @params = $som->paramsall; 
     44foreach $param (@params){ 
     45    print "$param\n"; 
     46 
     47} 
    4248 
    4349 
    4450 
    4551 
     52 
     53 
     54 
     55 
     56 
     57 
     58