Skip to content

Instantly share code, notes, and snippets.

What would you like to do? Example of HTML::ExtractContent
use strict;
use warnings;
use HTML::ExtractContent;
use Encode;
use Encode::Detect;
use Perl6::Say;
use Getopt::Long;
use Pod::Usage;
my $help;
'help' => ¥$help,
) or pod2usage(2);
$help and pod2usage(2);
my $html = do { local $/; <> };
my $decoded_html = decode('Detect', $html);
my $extractor = HTML::ExtractContent->new;
say $extractor->as_text;
=head1 NAME -
$ curl | ./

This comment has been minimized.

Copy link

@standin000 standin000 commented Mar 17, 2015 is NG for this method, could you check it again, thanks!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.