Re: section nesting

The following may be a useful starting point for you:

use strict;
use warnings;

my @sectionCount = (1, 1);

while (<DATA>)
  {
  chomp;

  if (/<\/sec>/)
    {
    pop @sectionCount;
    ++$sectionCount [-1];
    next;
    }

  next if ! /<sec id=/;

  push @sectionCount, 1;

  my ($secNum) = /<no>(.*?)<\/no>/;
  print "Section nesting error in or before $secNum\n"
    if $secNum ne join ".", @sectionCount[0..(@sectionCount-2)];
  }
[download]

__DATA__
<sec id="00005"><no>1.1</no>
    <sec id="00010"><no>1.1.1</no>
    </sec>
    <sec id="00015"><no>1.1.2</no>
        <sec id="00020"><no>1.1.2.1</no>
        </sec>
        <sec id="00025"><no>1.1.2.2</no>
        </sec>
    </sec>
    <sec id="00015"><no>1.1.3</no>
    </sec>
</sec>
<sec id="00005"><no>1.2</no>
    <sec id="00010"><no>1.2.1</no>
    </sec>
    <sec id="00015"><no>1.2.2</no>
        </sec>
        <sec id="00020"><no>1.2.2.1</no>
        </sec>
        <sec id="00025"><no>1.2.2.2</no>
    </sec>
    <sec id="00015"><no>1.2.3</no>
    </sec>
</sec>

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
[download]

Perl is Huffman encoded by design.

Comment on Re: section nesting Select or Download Code

Replies are listed 'Best First'.
Re^2: section nesting by anniyan (Monk) on Jul 26, 2005 at 08:04 UTC
GrandFather i am stunned with your nice solution. Thanks a lot for spending such long time to get the solution. ++. It works very well. Definitely i will go through your logic, which might help me in my future. Regards, Anniyan (CREATED in HELL by DEVIL to s\|EVILS\|GOODS\|g in WORLD)	[reply]
Re^3: section nesting by Tanktalus (Canon) on Jul 26, 2005 at 13:51 UTC
Warning: there is a reason why people pointed you to XML::Twig and the like. That's because parsing XML is hard. This may make it look easy, but it won't work unless the data is formatted to one tag per line, and no tags are allowed to span lines. Which may work today, but may not tomorrow. XML::Twig will handle it either way, GrandFather's solution will not. This isn't a slight on GrandFather's perl skill - you asked for something that didn't involve XML::Twig, and that's what he did. I just don't want you going out, using it, and then coming back and complaining about GrandFather's supposed lack of coding skill when it doesn't work. It works for the example given, you just need to know its assumptions.	[reply]
Re^4: section nesting by GrandFather (Saint) on Jul 26, 2005 at 20:25 UTC
Thank you Tanktalus. I intended to say pretty much exactly that and to point out the implicit assumptions concerning the data behind the code, then posted the code in a hurry. Perl is Huffman encoded by design.	[reply]