123456789101112131415
my %test1;my %test2; %test1->{'_tag'} = "ol";%test2->{'class'} = "nobr";$anzahl_rules = 2;while($anzahl_rules > 0){ print"$anzahl_rules\n"; @all_normal_lists = $tree->look_down(%test1,%test2); print"Versuch $anzahl_rules: ".scalar(@all_normal_lists)."\n"; $anzahl_rules--;}