Tree::Simple Bug? - #114328 (Fragen zu Perl-Modulen)

topeg

2008-09-07 19:22

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Die Suchfunktion oben hat eine Unzulänglichkeit:
Sie findet immer nur den ersten "Node" zu einem Wert.
Das Macht sie schnell, aber es kann mehrere geben Nodes geben, die den Wert haben.
Darum eine kleine Änderung:

Code (perl): (dl )

sub find
{
  my $tree = shift;
  my $node_value=shift;
  my @childs=();
  my $func;
  $func = sub ($)
  {
    my $child=shift();
    push(@childs,$child) if($child->getNodeValue() eq $node_value);
    my @children=$child->getAllChildren();
    $func->(shift(@children)) while(@children);
  };
  $func->($tree);
  return @childs;
}

Aufruf:

Code (perl): (dl )

my @nodes=find($tree,"<NodeValue>");