Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    $match = substr $match, 0, length($str) - 1 if length $str;
    return 1 if $_[0] =~ s/.?$match//;
}
  2. or download this
    Matched 'D7PD' against 'D7*D-48*6'
Matched 'D7RD' against 'D7*D-48*6'
Matched 'D7RD' against '*7RD-4896'
Matched 'D7RD' against 'D7RD-489*'
Matched '4897' against 'D7RD-489*'