Help for this page

Select Code to Download

Select or download this

my $getPatterns;
while (<>) {
...
for (@errors) {
    print "    $_";
}

Select or download this

while (<>) {
    if (/^#ERRORS/ .. /^CELLS/) {
...
for (@errors) {
    print "    $_";
}