Data :: Dumper要素の取得

Question

私は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"; 

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

何か助けていただければ幸いです。

おかげ

Answer 1

あなたは

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

を意味ですか？

以上簡潔

print "$_\n" foreach @$devices;