utility to show all .html files w/descriptions?

Mike Jacoubowsky wrote:

 > Does anybody know of a utility that lists all of your .htm/.html files,
 > along with their descriptions, so I can try and get a handle on all this?

I put this together a while ago. You can get Perl via
<http://www.perl.org/>. It prints out information about all the meta data,
adding an if statement can limit it to just the description.

Call it with something like:

perl myscript.pl *.html


Program starts:

#!/usr/bin/perl
use strict;
use HTML::TreeBuilder 3;

#######################################
#
# Extracts meta tags from HTML documents
# and displays their content.
#
#######################################

foreach my $file_name (@ARGV) {
my $tree = HTML::TreeBuilder->new;
$tree->parse_file($file_name);
my @meta = $tree->find_by_tag_name('meta');
print $file_name . "\n";
for (@meta) {
print $_->attr('name') . $_->attr('http-equiv') . ' = ';
print $_->attr('content') . "\n";
}
print "----------------------------------\n\n";
$tree = $tree->delete;
}



--
David Dorward <a style='text-decoration: underline;' href="http://dorward.me.uk/" target="_blank">http://dorward.me.uk/</a><!-- ~MESSAGE_AFTER~ -->
 >> Stay informed about: utility to show all .html files w/descriptions? 

Thanks... I've spent the last few years avoiding learning Perl... sigh.
Better get over it soon!

Thanks again-

--Mike-- Chain Reaction Bicycles
<a style='text-decoration: underline;' href="http://www.ChainReactionBicycles.com" target="_blank">http://www.ChainReactionBicycles.com</a>


"David Dorward" <dorward.DeleteThis@yahoo.com> wrote in message
news:bp8dvc$3hc$2$8300dec7@news.demon.co.uk...
 > Mike Jacoubowsky wrote:
 >
  > > Does anybody know of a utility that lists all of your .htm/.html files,
  > > along with their descriptions, so I can try and get a handle on all
this?
 >
 > I put this together a while ago. You can get Perl via
 > <http://www.perl.org/>. It prints out information about all the meta data,
 > adding an if statement can limit it to just the description.
 >
 > Call it with something like:
 >
 > perl myscript.pl *.html
 >
 >
 > Program starts:
 >
 > #!/usr/bin/perl
 > use strict;
 > use HTML::TreeBuilder 3;
 >
 > #######################################
 > #
 > # Extracts meta tags from HTML documents
 > # and displays their content.
 > #
 > #######################################
 >
 > foreach my $file_name (@ARGV) {
 > my $tree = HTML::TreeBuilder->new;
 > $tree->parse_file($file_name);
 > my @meta = $tree->find_by_tag_name('meta');
 > print $file_name . "\n";
 > for (@meta) {
 > print $_->attr('name') . $_->attr('http-equiv') . ' = ';
 > print $_->attr('content') . "\n";
 > }
 > print "----------------------------------\n\n";
 > $tree = $tree->delete;
 > }
 >
 >
 >
 > --
<font color=purple> > David Dorward <a style='text-decoration: underline;' href="http://dorward.me.uk/</font" target="_blank">http://dorward.me.uk/</font</a>><!-- ~MESSAGE_AFTER~ -->
 >> Stay informed about: utility to show all .html files w/descriptions?