コマネタ帳

「News Twitter まとめ Wiki」の「天気・交通情報系」ページで@JRHokkaidoSapを紹介していただきました。ついったー部新年会@道民部でも「中の人」が定着していたようで、くすぐったいことと言ったらありません。重要なことは「Net::Twitter」と「Web::Scraper」がやってくれてますからね。

肝心の@JRHokkaidoSapですが、前回のエントリの後でエンコードが間違っていたことに気付きました(大汗)。波ダッシュが化けるので、全角チルダに強制置換する処置も含めて最新のコードを置いておきます。

ちなみに、「use utf8;」だからソースはutf-8エンコードで保存しないとダメですよ→俺。

#!/usr/bin/perl
use strict;
use utf8;
use Encode;
use Net::Twitter;
use URI;
use Web::Scraper;
use Jcode;

my $url =
 'http://mobile.jrhokkaido.co.jp/web/area.asp?a=1';
my $fn = 'work.txt';
my $scrape = scraper {
  process 'tr[bgcolor="#D0FFD0"]',
  'term' => 'text';
  result 'term';
};

my $content = LWP::UserAgent->new->get($url)->content;
my $result = decode('shiftjis', $scrape->scrape(\$content, $url));

$result =~ s/[\s\n「」]+//gs;
$result =~ s/([０-９][０-９])時([０-９][０-９])分/$1:$2/gs;
$result =~ s/０/0/gs;
$result =~ s/１/1/gs;
$result =~ s/２/2/gs;
$result =~ s/３/3/gs;
$result =~ s/４/4/gs;
$result =~ s/５/5/gs;
$result =~ s/６/6/gs;
$result =~ s/７/7/gs;
$result =~ s/８/8/gs;
$result =~ s/９/9/gs;
$result =~ s/行き/行/gs;
$result =~ s/（/\(/gs;
$result =~ s/）/\)/gs;
$result =~ s/／/\//gs;
$result =~ s/[▲△・◆◇]+/▲/gs;
$result =~ s/〜/〜/gs;

my $r2 = $1 if ($result =~ /^(.{1,137})/);

open FH, '<:encoding(utf-8)', $fn;
my $fl = ;
if ($r2 eq $fl) {
  close(FH);
  exit;
}
close(FH);
open FH, '>:encoding(utf-8)', $fn;
print FH $r2;
close(FH);

my $twit = Net::Twitter->new(
  username=>"JRHokkaidoSap"   #ユーザー名
, password=>"***"  #パスワード
);

Jcode::convert(\$result, 'utf8');

my $result = $twit->update($result);