#Perl鍋 #14(2017-01-26)

web-query.pl

#!/usr/bin/env perl
use utf8;
use v5.16;
use strict;
use warnings;
use feature 'say';
use Data::Printer {deparse => 1, caller_info => 1};

use Web::Query;
use Text::Shirasu;

wq('http://blog.yapcjapan.org/entry/2017/01/26/080000')->find('div.entry-content')->each(
    sub {
        my $text      = $_->text;
        my $ts        = Text::Shirasu->new(dicdir => '/usr/local/lib/mecab/dic/ipadic');
        my $normalize = $ts->normalize($text);
        $ts->parse($normalize);
        $ts->filter(type => [qw/名詞/]);
        for my $node (@{$ts->nodes}) {
            say $node->surface;
        }

    }
);