コマネタ帳(旧) by iyoupapa

PCや土いじりやゲームやオモチャ、思いつくまま細切れネタを書き散らかす日記

Creative Commons Licenseiyoupapaが書いたコマネタ帳の文章は「Creative Commons 表示-継承 2.1 日本」ライセンスです。写真については私のFlickrで配布しています。新しい「コマネタ帳」に移転しました。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

[ネット]@JRHokkaidoSapがまとめWikiに載ったよ

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/([0-9][0-9])時([0-9][0-9])分/$1:$2/gs;
$result =~ s/0/0/gs;
$result =~ s/1/1/gs;
$result =~ s/2/2/gs;
$result =~ s/3/3/gs;
$result =~ s/4/4/gs;
$result =~ s/5/5/gs;
$result =~ s/6/6/gs;
$result =~ s/7/7/gs;
$result =~ s/8/8/gs;
$result =~ s/9/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);

コメント

コメントの投稿















管理者にだけ表示を許可する

トラックバック

この記事のトラックバックURL
http://iyouneta.blog49.fc2.com/tb.php/305-1e3f4043

-

管理人の承認後に表示されます

-

管理人の承認後に表示されます

skin presented by myhurt : BLOG | SKIN

FC2Ad

  
copyright © 2005 コマネタ帳(旧) some rights reserved. Powered by FC2ブログ