ここ数日、これがうまくできなくて非常に悩んでいました。で、現時点での結論はSOAP::Liteを使ったクライアントは動作しないのではないかと思う。現状、SOAP::Liteのバージョンは、0.71を使っています。

ここまでたどり着いた理由はいくつかあって、まずAmazon Webサービスの利用をRESTではなくSOAPを使おうとすると、検索して出てくる情報が結構古いのです。古いPerlのスクリプトをできる限り調整しても、下記のようなエラーメッセージが出ます。

String value expected instead of SOAP::Data reference

これは、String型で受けなければならないところが、SOAP::Data型できているから、エラーだよ。っていうメッセージなんです。もっとも、この英語は理解したというより友人に教えてもらったのですが。

とりあえず、PHPでSOAPを使ってみようとやってみました。そしたら、それはあっさりと動く。ということで、それをベースにperlで書き直してみると、今までSOAP::Data型で渡していたところが、どうやら軒並みStringで渡すようになっている。となると、perlの連想配列で情報をやり取りすれば良いってことになる。それで書き直してみると、また新しいエラーメッセージが出るようになりました。

Element ‘XMLEscaping’ can’t be allowed in valid XML message. Died. at /usr/lib/perl5/site_perl/5.8.8/SOAP/Lite.pm line 1378, line 855.

このエラーメッセージをたよりに、検索してみると、このURLが見つかったのですが、どうもこの人も同じようになぜ、正しくやっているのにダメなんだ？と嘆いています。たぶんこの人と思われる人が、英語版のamazonディスカッションボードに投稿しているのですが、2007/12/2から回答が何も付かない状態です。

解決していないところをみると、現状ではSOAP::Liteを使ってのクライアントはできないのだと思います。PHPではSOAPクライアントが動いていますから、Amazonの問題ではなく、SOAP::Liteの問題だと思います。

ちなみに、perl -MCPAN -e shellを使ってCPANインストールをしたのですが、この環境では以下のワーニングも出ていて、問題がありそうです。

Subroutine LWP::UserAgent::redirect_ok redefined at /usr/lib/perl5/site_perl/5.8.8/SOAP/Transport/HTTP.pm line 41.
Subroutine LWP::Protocol::collect redefined at /usr/lib/perl5/site_perl/5.8.8/SOAP/Transport/HTTP.pm line 59.
String value expected instead of SOAP::Data reference

Tags: Amazon, Perl, Programming, SOAP