Help for this page

Select Code to Download


  1. or download this
    use warnings
    FATAL => 'all'
...
    return $match, $diff_seq;

    }  # end sub m1()
  2. or download this
    c:\@Work\Perl\monks\Anonymous Monk\1027898>perl extract_9-15_digits_2.
+pl
# matching with m1()
...
ok 43 - no warnings
1..43
# Looks like you failed 3 tests of 43.