1

Data :: Dumperを使用して、SOAPメッセージングを使用してサーバーから情報を取得していますが、処理のための戻り値の割り当てについて支援が必要です。私のコードは次のとおりです。

my $cm = new SOAP::Lite
encodingStyle => '',
uri => "$axltoolkit",
proxy => "https://$cucmip:$axl_port/axl/";

my $res =$cm->getUser(SOAP::Data->name('userid' => "387653"));

unless ($res->fault) {
    $Data::Dumper::Incident=3;
    my( $reply ) = $res->paramsall();
    my ($devices) = $reply->{user}{associatedDevices}{device};
    print $devices->[0]."\n";
    print $devices->[1]."\n";
    print $devices->[2]."\n";

{device}には任意の数の要素を含めることができるため、$ devices-> [0]、[1]などを呼び出す代わりに、返されたすべてのデバイスを吐き出すことは可能ですか？$ _と@_を試しましたが、最初のデバイスが返されるだけなので運がありません。

どんな助けでも大歓迎です。

ありがとう

4

1 に答える 1

3

もしかして

foreach my $device (@$devices) {
    print "$device\n";
}

？

またはもっと簡潔に

print "$_\n" foreach @$devices;
于 2012-01-07T02:53:21.023 に答える