Help for this page

Select Code to Download


  1. or download this
    my @array_2 = grep { my $element = $_;
                     $element->func() eq 'TEST'
                   } @array_1;
  2. or download this
    my @array_2 = grep { our $element; local *element = \$_;
                     $element->func() eq 'TEST'
                   } @array_1;
  3. or download this
    use Data::Alias qw( alias );
my @array_2 = grep { alias my $element = $_;
                     $element->func() eq 'TEST'
                   } @array_1;