Select Code to Download

#Empty.parser

...
    '!UNEXPECTED' => ['START', sub {output("Unexpected text at line $_
+[0]"); $error++}],
        # [ the state to move to if no regexp of the current state mat
+ched the line, function to call ]
}

#FileCreate.parser
my ($sites, $files, $jobs, $site_start, $error);
...
    '!EOF' => sub {output("Unexpected EOF!")},
    '!UNEXPECTED' => ['START', sub {output("Unexpected text at line $_
+[0]"); $error++}],
}

#parse.pl
use strict;
...
        }
    }
}