Scraper from Yahoo! JP Fortune.

seiza.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use Encode;
use HTTP::Tiny;

binmode STDOUT, ':utf8';

my $http = HTTP::Tiny->new();
my $res  = $http->get("https://fortune.yahoo.co.jp/12astro/ranking.html");

my $body = decode('euc-jp', $res->{content});

my @lines = split /\n/, $body;

my @seizas;

for my $line (@lines) {
    if ( $line =~ /seiza-bg0[12]/ ) {
        #print $line, "\n";
        my ($seiza) = $line =~ /alt="(.+?)"/;
        #print ">>> seiza => $seiza\n";
        if ( $seiza ) {
            push @seizas, $seiza;
        }
    }
}


my $rank = 1;
for my $seiza (@seizas) {
    print "$rank $seiza\n";
    $rank++;
}