Help for this page

Select Code to Download


  1. or download this
    #! /usr/local/bin/perl

...
} else {
    print "strings $string1 and $string2 do not match!\n";
}
  2. or download this
    matching part: the date is to
difference: day
difference: morrow
  3. or download this
    ...
$concat = $string1 . "#!!#" . $string2;

if ( $concat =~ m/^(.*)(.*)#!!#\1(.*)$/ ) {
...