Snippets

sironekotoro connpassのページ下部にあるフィード欄の情報を取得する

You are viewing an old version of this snippet. View the current version.
Revised by sironekotoro 5843ccb
connpass_getfeed.pl
Raw 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
use strict;
use warnings;
use feature qw/say/;
use Data::Dumper;
use Encode;

use URI;
use LWP::Simple qw/get/;
use Web::Scraper;

my $url = URI->new('https://perl-entrance-tokyo.connpass.com/event/89771/');

my $html = get($url);

my $scraper = scraper {
    process '//p[@class="message"]',         'title[]'   => 'TEXT';
    process '//span[@class="icon_comment"]', 'comment[]' => 'TEXT';
};

my $res = $scraper->scrape($html);

my $number = scalar @{ $res->{title} };

for my $index ( 0 .. $number - 1 ) {
    print encode_utf8 ( $res->{title}->[$index] ),   "\n";
    print encode_utf8 ( $res->{comment}->[$index] ), "\n";
    print '-' x 10, "\n";
}
HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.