Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 19 lines (13 sloc) 318 Bytes
#!/usr/bin/perl -w
use strict;
use HTML::Summary;
use HTML::TreeBuilder;
use Getopt::Long;
my $document = join( "", <> );
my $tree = new HTML::TreeBuilder;
$tree->parse( $document );
my $summarizer = new HTML::Summary(
LENGTH => 1000,
USE_META => 1,
);
print $summarizer->generate( $tree ), "\n";