Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
  print "Section nesting error in or before $secNum\n"
    if $secNum ne join ".", @sectionCount[0..(@sectionCount-2)];
  }

Select or download this

__DATA__
<sec id="00005"><no>1.1</no>
...
Section nesting error in or before 1.2.2.1
Section nesting error in or before 1.2.2.2
Section nesting error in or before 1.2.3