Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
}

printf( qq{string "%s" is %s\n}, $test_string, ( $position eq q{final}
+ ) ? q{ACCEPTED} : q{REJECTED} );
  2. or download this
    $ perl state.pl abababac
start -> 1 on "a"
...
start -> 1 on "a"
1 -> final on "c"
string "abababac" is ACCEPTED
  3. or download this
    perl state.pl abababa
start -> 1 on "a"
...
1 -> start on "b"
start -> 1 on "a"
string "abababa" is REJECTED