Perl sample code "sample.pl"

#! /usr/bin/perl

use SOAP::Lite;
use XML::Simple;


my $wsdl = "http://h-invitational.jp/hinv/hws/soap_acc2hit.php?wsdl" ;
my $soap_service = SOAP::Lite->service($wsdl) ;

my $id = "BC019236";
my $xmldoc = $soap_service->acc2hit($id) ;

my $parser = XML::Simple->new ;
my $xml_content = $parser->XMLin($xmldoc) ;

my @list = $xml_content->{'H-INVITATIONAL-ID'} ;
my $list_cnt = @{$xml_content->{'H-INVITATIONAL-ID'}} ;
print "CNT:" . $list_cnt . "\n" ;
for($i=0 ; $i<$list_cnt ; $i++){
	print "ID:" . $xml_content->{'H-INVITATIONAL-ID'}[$i] . "\n" ;
}

exit(0);

Result

> perl sample.pl
CNT:2
ID:HIT000038568_01
ID:HIT000038568_02