Help for this page

Select Code to Download


  1. or download this
    $s = x'00ffff00ffff';
#       [ffff] this a non word-aligned false hit
#             [ffff] Word-align true hit
  2. or download this
    print "'$1' found at ", pos( $s ) - 4 
    while $s =~ m[(?<=^.{4})*?(....)]g;
...
'er t' found at  28
'he l' found at  32
'azy ' found at  36
  3. or download this
    #! perl -slw
use strict;
...

index found 16973824 at (non % 4 == 0) 1038
regex found 16973824 at 1038