Help for this page

Select Code to Download


  1. or download this
    if ($search) { ...
  2. or download this
    #!/usr/bin/env perl

...
else {
    print "Nothing to search for!\n";
}
  3. or download this
    Search:  
Nothing to search for!
  4. or download this
    Search: 100
'100' not found.
  5. or download this
    Search: 0
First occurrence of '0' at index: 0
Last occurrence of '0' at index: 4
  6. or download this
    Search: 2
First occurrence of '2' at index: 1
Last occurrence of '2' at index: 3
  7. or download this
    Search: 4
First occurrence of '4' at index: 2
Last occurrence of '4' at index: 2