Question

Using Perl XML::Twig, how can I loop on each sibling until reaching the last node ?

while (condition_sibling_TWIG, $v)
{
$v=$v->next_sibling;
$v->print;

# process $v 
}

Should the condition be ($v != undef) ?

thanks

Answer 1

You can use next_siblings to get the list of siblings:

foreach my $sibling ($elt->next_siblings)
  { # process sibling
  }

next_siblings accepts an optional condition as argument, which is an XPath step, or at least the subset of XPath supported by XML::Twig: $elt->next_siblings('p[@type="secret"]'))