[Moscow.pm] К коллективному разуму...

[Sergey Malochinskiy]

Сам спросил и сам придумал. :)

my @params1 = [11, 12, 13, 14, 15];
my @params2 = [21, 22, 23, 24, 25];
my @params3 = [31, 32, 33, 34, 35];

my @share = [\@params1, @params2, @params3];

for my $tmp (@share) {
    say Dumper @{$tmp};
}


27 апреля 2012 г. 15:45 пользователь Sergey Malochinskiy <
sergey.malochinskiy на gmail.com> написал:

> Уважаемы участники Moscow.pm
>
> Помогите плиз с небольшой задачкой.
>
> Есть несколько  массивов:
> Необходимо обратится к ним по имени к каждому.
> Проверить наличие элементов и перебрав сделать какое-то действие с каждым
> элементом.
>
> Пишу:
>
> my @params1 = [11, 12, 13, 14, 15];
> my @params2 = [21, 22, 23, 24, 25];
> my @params3 = [31, 32, 33, 34, 35];
>
> for ( qw/params1 params2 params3/ ) {
>     my @tmp_array = @{ ${$_} };
>     if ( @tmp_array ) {
>         say Dumper @tmp_array;
>     }
> }
>
> Можно это как-то сделать? Или направьте как поиск в гугле задать. :)
>
> Спасибо.
>
>
> --
> Best regards,
> Sergey Malochinskiy
>



-- 
Best regards,
Sergey Malochinskiy
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20120427/4c1f4e0b/attachment.html>