Сам спросил и сам придумал. :)
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 <
[email protected]> написал:
> Уважаемы участники 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
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
