123456789101112131415
my @rule0 = ('_tag', 'ol','class','nobr');my @rule1 = ('_tag', 'ol','style','margin-top:-11px','onmouseover','return true'); @{$rules{rule0}}=@rule0;@{$rules{rule1}}=@rule1; #print @{$rules{rule1}}[0];while($it_rules < scalar keys %rules){ @all_normal_lists = $tree->look_down(@{$rules{'rule'.$it_rules}}); print"Versuch $it_rules: ".scalar(@all_normal_lists)."\n"; $it_rules++; undef(@all_normal_lists);}