Help for this page

Select Code to Download


  1. or download this
      DB<28> \@x
     => [1, 2, 3, undef, 5, 6, 7, 8, 9, 10]
    ...
    
      DB<30> @a=List::Util::first { $_ eq "never" } @x; \@a
     => [undef]
    
  2. or download this
      DB<38> @a=grep { !$_ } @x; \@a
     => [undef]
    
      DB<39> @a=grep { $_ eq "never" } @x; \@a
     => []