スクレイピングする簡単な例

scraping.pl

#!/usr/bin/env perl
use strict;
use warnings;
use 5.014;
use utf8;
use open ':encoding(utf8)';
use Encode::Locale;
binmode(STDIN, ":encoding(console_in)");
binmode(STDOUT, ":encoding(console_out)");
binmode(STDERR, ":encoding(console_out)");
Encode::Locale::decode_argv;

use LWP::UserAgent;
use HTML::TreeBuilder;

my $ua = LWP::UserAgent->new(
    timeout => 10
);
my $word = $ARGV[0] // "延喜式";
my $url = "https://ja.wikipedia.org/wiki/$word";
my $res = $ua->get($url);
die $res->status_line if !$res->is_success;
my $html = $res->decoded_content;

my $tree = HTML::TreeBuilder->new;
$tree->parse($html);
$tree->eof;

foreach ($tree->look_down(_tag => 'p')) {
    say $_->as_text;
}