Спасибо. Отличный вариант.
27 апреля 2012 г. 16:06 пользователь Orlovsky Alexander < [email protected]> написал: > если имена массивов известны, то тоже самое лучше сделать как-то так: > for my $arr_ref (\@params1, \@params2, \@params3) { > next unless @$arr_ref; > > say Dumper($arr_ref); > } > > 27.04.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 > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > > -- Best regards, Sergey Malochinskiy
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
