Help for this page

Select Code to Download


  1. or download this
    if ($ARGV[0] !~ /(.).*(??{print "Searching for [^$1-z] starting at ",p
+os($ARGV[0]),"\n"; "[^$1-z]"})/ix)
  2. or download this
    [sgifford@sglaptop sgifford]$ perl /tmp/t4 abcd
Searching for [^a-z] starting at 4
...
Searching for [^c-z] starting at 3
Searching for [^d-z] starting at 4
alpha