Changeset 1109 for applications/bdmtoolbox/doc/from_bdm/filter_annotated.pl
- Timestamp:
- 06/16/10 20:04:20 (14 years ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
applications/bdmtoolbox/doc/from_bdm/filter_annotated.pl
r1043 r1109 7 7 use List::MoreUtils qw(uniq); 8 8 use HTML::TreeBuilder; 9 use HTML::Entities; 9 10 use Data::Dumper; 10 11 use Getopt::Long; … … 14 15 my $input_dir = '../../../../library/doc/html/'; 15 16 my $filename = 'annotated.html'; 17 #my @classes = map {encode_entities($_, '<>&')} @ARGV; 16 18 my @classes = @ARGV; 17 19 ;;;print STDERR Dumper \@classes; … … 59 61 #;;print STDERR "$class\n"; 60 62 63 $class =~ s/ /_/g; 64 61 65 if (grep {$_ eq $class} @classes) { 62 ;;;print "$class is in @classes\n";66 #;;print "$class is in @classes\n\n"; 63 67 next; 64 68 }; 65 69 66 #;;print STDERR "$class will be detached\n";70 ;;;print STDERR "$class will be detached\n\n"; 67 71 #;;print STDERR $node->tag() . ' ' . $node->{_parent}->tag() . "\n"; 68 72