Loading ...
Sorry, an error occurred while loading the content.

RE: [soaplite] Nested data and non unique tags

Expand Messages
  • wmorgenstern@twmi.rr.com
    Try this code #!/opt/bin/perl use strict; use diagnostics; use warnings; use Data::Dumper; use SOAP::Lite; my $source = sourcename ; my $destination =
    Message 1 of 3 , May 4, 2006
    • 0 Attachment
      Try this code

      #!/opt/bin/perl
      use strict;
      use diagnostics;
      use warnings;
      use Data::Dumper;
      use SOAP::Lite;

      my $source = "sourcename";
      my $destination = "destinationname";
      my $systemmode = "Development";

      my $wsdl = "http://servername/beti/beti.asmx?WSDL";
      my $query = SOAP::Lite->service($wsdl);
      my $method = SOAP::Data->name('GetOfficialStuff');
      my @params;
      push (@params, $source);
      push (@params, $destination);
      push (@params, $systemmode);
      my $som = $query->call($method => @params);

      for my $t ($som->valueof('//GDs/GD/*')) {
      print "G: " . $t->{G};
      print "Num: " . $t->{Num};
      print "Day: " . $t->{Day};
      print "LastDay: " . $t->{LastDay};
      }
    Your message has been successfully submitted and would be delivered to recipients shortly.