◆早期解決で 1500point差し上げます！

ごめんなさい、時間がとれなくて、みれてませんでした。。。

内容理解しました。

ざっと確認しただけなので、コメントに書いておきます。

SOAP::Data を確認したところ、

SOAP::Data->name('foo' => \SOAP::Data->value(
SOAP::Data->name('bar' => '123')));

より、

<foo>
<bar>123</bar>
</foo>

が生成できるようなので、

SOAP::Data->new('aF' => ¥SOAP::Data->value(
SOAP::Data->name('tl' => '123', 'bl' => '234')));

で、どうでしょうか？

度々の回答本当にありがとうございます。
本日は出先のため試せないのですが
明日必ず試してまた結果報告します。
ありがとうございます。

簡単なWSDLと、プログラムを書いておきますね

<definitions xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns:s="http://www.w3.org/2001/XMLSchema"
xmlns:s0="urn:HelloWorld"
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
targetNamespace="urn:HelloWorld"
xmlns="http://schemas.xmlsoap.org/wsdl/">

<types>
<s:schema targetNamespace="urn:HelloWorld">
<complexType name="acT">
<sequence>
<element name="bI" type="s:string" />
<element name="tI" type="s:string" />
</sequence>
</complexType>
</s:schema>
</types>

<message name="sayHello">
<element name="aF" type="s0:acT" />
</message>

<message name="sayHelloResponse">
<part name="sayHelloResult" type="s:string" />
</message>

<portType name="Service1Soap">
<operation name="sayHello">
<input message="s0:sayHello" />
<output message="s0:sayHelloResponse" />
</operation>
</portType>

<binding name="Service1Soap" type="s0:Service1Soap">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http"
style="rpc" />
<operation name="sayHello">
<soap:operation soapAction="urn:HelloWorld#sayHello"/>
<input>
<soap:body use="encoded"
encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
</input>
<output>
<soap:body use="encoded"
encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
</output>
</operation>
</binding>

<service name="HelloWorld">
<port name="HelloWorldSoap" binding="s0:Service1Soap">
<soap:address location="http://localhost:81/soap-wsdl-test/helloworld.pl" />
</port>
</service>
</definitions>

を

#!/usr/bin/perl

use strict;
use warnings;
# use SOAP::Lite;
use SOAP::Lite +trace => 'debug';

my $soap = SOAP::Lite->service("file:say_hello_rpcenc.wsdl");
my $af = SOAP::Data->type('ns1:acT')->name('aF' =>
\SOAP::Data->value(
SOAP::Data->value(SOAP::Data->name('bl' => 'sample bl')),
SOAP::Data->value(SOAP::Data->name('tl' => 'sample tl'))));
my $result = $soap->sayHello($af);
print $soap->result();

で、リクエストデータをみると

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:s0="urn:HelloWorld"><soap:Body><s0:sayHello><aF xsi:type="ns1:acT"><bl xsi:type="xsd:string">sample bl</bl><tl xsi:type="xsd:string">sample tl</tl></aF></s0:sayHello></soap:Body></soap:Envelope>

となっているので、できているようです。

WSDL作成・テストリクエスト送信・その結果のご報告までやっていただき
本当にありがとうございました。。
これだけのものになると質問とかではなく、1案件レベルになってきて、
大変申し訳ない気持ちと感謝の気持ちしかありません。。

実はちょっと私事でごたごたがあり、21日にならないと実験環境で
試せないことになってしまい、この質問がはじめてなので
なんともいえないですが、21日にもコメントがかけるようでしたら
報告させていただきたいとおもいます。

一旦質問を閉めさせていただき、このあとポイント付与させていただきます。
ポイント交換などしていただいて、なにか美味しいものでも召し上がってください。
本当にありがとうございました！

ありゃー、すいません

ポイントが多すぎて、、、こちらこそ恐縮です。

perl好きなので、

http://modperlis.bounceme.net/

に、これ以外でも何かあれば、コメントいただければと思います。

（全然更新してないので、ネタに使わせていただく可能性も高いですがw）

では、うまくいくことを祈っています

お世話になってます！

昨日はまだゴタゴタに巻き込まれていてできなかったのですが、
今日やってみたところ無事リクエスト内容は希望通りの構造になりました！
ありがとうございました！！

ただ、、それ以外のところなのかなんなのかわからないのですが、
相手サービスからエラーが吐かれていて解決せず、、
今相手サービスに確認をとっているところです。。

また、、なにかあったら、、是非お願いさせて下さい、、、。。

それでは一旦、解決！ということで、本当にありがとうございました！m(_ _)m