Help for this page

Select Code to Download


  1. or download this
    while (<DATA>) {
    my ($test, $_) = /^(.+?):\s?([01]+)$/
        or do { warn "Line $. is invalid: $_"; next };
...
test 4: 1111111000
test 5:10001001110000011
..... so on
  2. or download this
    test 1 000000: PASS
test 2 111111: PASS
test 3 000011111: CLEAN
test 4 1111111000: CLEAN
test 5 10001001110000011: FAIL
Line 6 is invalid: ..... so on