SOAPの結果はXMLに落としてしまえば…
前回のつづき。
my $hoge = SOAP::Lite -> service('http://hogehoge.co.jp/hoge.asmx?WSDL')
-> outputxml(1)
-> 関数名();
のようにoutputxmlをつけてメソッドを呼ぶと結果がXMLで吐き出されます。
これだと3つ返ってくるはずの要素が1つになってしまうことはありませんでした。
吐き出したXMLを
my $deserial = SOAP::Deserializer->new;
my $obj = $deserial->deserialize($hoge);
でオブジェクトに戻してやります。
さて次の関門は…PerlでXMLのNamespaceってどうあつかうんだっけ?
あーめんどー。
XMLを正規表現でガリガリやっちゃえば簡単なのに。
RESTが流行る訳だ。