—

              
#!/usr/bin/perl
use strict;
use lib './lib';
use LEOCHARRE::HTML::Text 'html2txt';
use base 'LEOCHARRE::CLI';
our $VERSION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)/g;
my $o = gopts();
if ($o->{d}){ $LEOCHARRE::HTML::Text::DEBUG = 1 }
for my $arg (@ARGV){
   my $out = html2txt($arg)
      or warn("Could not get output from argument '$arg'")
      and next;
   print "$out\n";
}
sub usage { q/html2text [OPTION].. [URL|PATH|HTML]..
Convert html to text
   -h       help
   -d       debug
   -v       version
Try 'man html2text' for more info.
/ }
exit;
__END__
HideShow 36 lines of Pod
=pod
=head1 NAME
html2txt - Convert html to text
=head1 DESCRIPTION
Argument is a url or html file, spits simple text to stdout.
=head1 USAGE 
html2text [OPTION].. [URL|PATH|HTML]..
=head1 OPTIONS
   -h       help
   -d       debug
   -v       version
=head1 USAGE EXAMPLES
   html2text http://news.bbc.co.uk
   html2text ./file.html
   html2text http://news.bbc.co.uk ./file.html
Save to a file?
   html2text ./filewithhtml.txt > out.txt
=head1 SEE ALSO
L<LEOCHARRE::HTML::Text> parent package, full API.
=cut