Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -l

...
$_ = "$file1contents\n$file2contents";

print "at position $-[0] is match $1" while /(?= (.{$k,}) .* \n .* \1 
+)/gx;
  2. or download this
    at position 8 is match AAAAC
at position 27 is match ACTACTACT
...
at position 40 is match CTTCAA
at position 41 is match TTCAA
at position 44 is match AAAAC