Получение данных :: Элементы дампера

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

{устройство} может содержать любое количество элементов, поэтому вместо вызова $ devices -> [0], [1] и т. Д. - возможно ли выплюнуть все возвращенные устройства? Я пробовал $ _ и @_, но не повезло, поскольку он просто возвращает первое из устройств.

Любая помощь приветствуется.

Спасибо

Answer 1

Вы имеете в виду

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

?

Или более кратко

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