Help for this page

Select Code to Download


  1. or download this
    my $desc = join "_" => @array[1,3,5];
  2. or download this
    my $desc = join "_" => @array[ grep { $_ % 2 } 0 .. $#array ];
  3. or download this
    my $desc = join "_" => @array[ map { 2*$_ + 1 } 0 .. (@array/2)-1 ];