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

topeg

2008-09-07 19:08

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Und wenn du ein index brauchst:

Code (perl): (dl )

sub hash_nodes
{
  my $tree=shift;
  my %h=();
  my $sub;
  $sub = sub ($)
  {
    my $node=shift;
    my $value=$node->getNodeValue();
    push(@{$h{$value}},$node);
  };
  $tree->traverse($sub);
  return %h;
}

Aufruf:

Code (perl): (dl )

1
2

%index=hash_nodes($tree);
$node=$index{"<NodeValue>"}[0];