Help for this page

Select Code to Download


  1. or download this
    # this always works
print "@a\n" if defined(List::Util::first { defined($_) && 0 == $_ } @
+a);
  2. or download this
    # doesn't work
print "@a\n" if defined(List::Util::first { !defined($_) } @a);