Help for this page

Select Code to Download


  1. or download this
    $found = scalar grep { /^\Q$name\|/i } <FILE>;
  2. or download this
    while (<FILE>) { $found = 1 if /^\Q$name\|/i }
  3. or download this
    2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$