Help for this page

Select Code to Download


  1. or download this
    Karls-Mac-mini:~ karl $ perl -e 'print 2*60*60;'
7200
  2. or download this
    perl -e 'print scalar( grep { $_ == 1 } (0,0,0) );' # nothing found
0
  3. or download this
    perl -e 'print scalar( grep { $_ == 1 } (1,0,0) );' # one found
1