Football Schedule Get Script

FSGS.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Web::Scraper;
use URI;

my $scraper = scraper{

        # process 'tag' , 'scala' or 'hairetsu[]' => 'get data style';
        process 'td', 'schedule[]'=>'TEXT';

	# return data;
        result 'schedule';
};

my $uri = new URI('http://www.jsports.co.jp/football/');
my $res = $scraper->scrape($uri);

my $sche = '';

for my $data (@$res){
      $sche = $sche.$data."\n";
}

binmode(STDOUT,"utf8");
print $sche;