Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @x = map $_ > 1, -3 .. 3;
 dd \@x;
"
["", "", "", "", "", 1, 1]
  2. or download this
    c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @x = map { $_ > 1 or 0 } -3 .. 3;
 dd \@x;
"
[0, 0, 0, 0, 0, 1, 1]