Help for this page

Select Code to Download


  1. or download this
    %{ $href } # better than %$href
@{ $aref } # better than @$aref
  2. or download this
    if ( scalar @{ $lib || [] } ) {
    ...
}
  3. or download this
    $ perl -Mstrict -E 'my $aref = [ "", undef ]; say scalar @{ $aref || [
+] } ? "True" : "False";'
True
  4. or download this
    $ perl -Mstrict -E 'my $aref = [ "", undef ]; say scalar ( grep { leng
+th $_ } @{ $aref || [] } ) ? "True" : "False";'
False