際際滷

寔?ドルヲタを屶える室宝
@nipotan

アツい歪、TIF の歪

? TOKYO IDOL FESTIVAL
? http://www.idolfes.com/
? TOKYO IDOL FESTIVAL�トウキョウ?アイドル?フェスティバ
ル�は、2010定より�_岸されている晩云のアイドルイベントであ
る。待各はTIF�ティフ�。溺來アイドルグル�`プを嶄伉に50�M參
貧の溺來アイドルが歌紗する。歌紗アイドルの方では晩云恷寄�
庁のアイドルイベントである。 (竃灸: Wikipedia)

TIF 2012

? 8/4, 8/5 の屈晩�g
? 10 ステ�`ジ、111 �M 732 兆のアイドル
(輿袗は 9 ステ�`ジ)

? 2012 定の朕囁は SKE48

お�櫃鉾襪�

? お�櫃鉾襪蠅離▲ぅ疋襪鰔�たい�
? タイムテ�`ブルを�よう
? http://www.idolfes.com/2012/timetable/

倦

? iPhone, Androidで�ると
? http://www.idolfes.com/2012/sp/

タイムテ�`ブル

? もっと�碧�靴笋垢�
? やっぱ iCal

iCal 狼 CPAN モジュ�`ル

? http://search.cpan.org/search?
query=ical&mode=all

iCal 侘塀

? テキストベ�`スだから採となくわかるね
? �m輝なイベントを恬って、iCal で export
してみよう

侘塀
? iCal の侘塀
BEGIN:VCALENDAR
METHOD:PUBLISH
VERSION:2.0
X-WR-TIMEZONE:Asia/Tokyo
X-WR-CALNAME:カレンダ�`兆
X-WR-CALDESC:�h苧
(イベントデ�`タ)
END:VCALENDAR

侘塀
? イベント
BEGIN:VEVENT
:
:
END:VEVENT

侘塀
? イベントの�てもよくわからんデ�`タ
UID:ランダム猟忖双
SEQUENCE:0
STATUS:CONFIRMED
TRANSP:OPAQUE

侘塀
? イベントの�りゃわかるデ�`タ
DTSTART:�_兵晩�r (%Y%m%dT%H%M%SZ)
DTEND:�K阻晩�r (%Y%m%dT%H%M%SZ)
SUMMARY:イベントのタイトル
LOCATION:��
DESCRIPTION:�h苧

Let¨s Scrape
use strict;
use warnings;
use Web::Scraper;

my $tif = scraper {
????process 'section', 'event[]' => scraper {
????????process 'time', 'time' => 'TEXT';
????????process 'div > h4', 'title' => 'TEXT';
????????process 'div > p', 'performer' => [
????????????'HTML', sub { s{<brs*/>s*}{n}g },
????????];
????};
};

URL
? $date は 0804 か 0805
? $stage は hot とか green とか doll とか
my $url = "http://www.idolfes.com/2012/sp/time${date}_${stage}.html";

ステ�`ジ兆
? ちゃんと屎塀兆各がある
? ��銈吠垢┐�
my %stages = (
????hot => 'HOT STAGE',
????green => 'GREEN OASYS',
????doll => 'DOLL FACTORY',
????fantastic => 'FANTASTIC THEATER',
????wonder => 'WONDER FUTURE PLANET',
????smile => 'SMILE GARDEN',
????sky => 'SKY STAGE',
????secret => 'SECRET COURT',
????fresh => 'FRESH FIELD',
????welcome => 'WELCOME MARQUEE',
????greeting => 'GREETING SQUARE',
);

greeting
? 徭喇すぎる
time0804_greeting.html

ステ�`ジ兆
? greeting はパス´
my %stages = (
????hot => 'HOT STAGE',
????green => 'GREEN OASYS',
????doll => 'DOLL FACTORY',
????fantastic => 'FANTASTIC THEATER',
????wonder => 'WONDER FUTURE PLANET',
????smile => 'SMILE GARDEN',
????sky => 'SKY STAGE',
????secret => 'SECRET COURT',
????fresh => 'FRESH FIELD',
????welcome => 'WELCOME MARQUEE',
# greeting => 'GREETING SQUARE',
);

�_兵�r震と�K阻�r震
? そもそも iCal の晩�rは UTC
? DateTime でちゃんと函り�Qおう

? �r震の侘塀
? HH:MM゛HH:MM
my($from_time, $to_time) = split /x{ff5e}/, $event->{time};

? �Fその 1
? 8/4 の HOT STAGE
time0804_hot.html

? �Fその 2
? 8/4 の FANTASTIC THEATER ほか
time0804_fantastic.html
% perl -MDateTime -e'DateTime->new(hour => 24)'
The 'hour' parameter ("24") to DateTime::new did not pass the 'an
integer between 0 and 23' callback

? �Fその 3
? 8/4 WELCOME MARQUEE 9:45゛10:00
time0804_welcome.html
? 宥械 vs ここだけ

? �r震の侘塀
? HH:MM゛HH:MM
my($from_time, $to_time)
= split /[x{ff5e}x{301c}]/, $event->{time};

竃處ユニット
? イベントタイトルと竃處宀が�eの��
? performer に

iCal のデ�`タ侘塀
? 75 猟忖で個佩させないといけない
? �Aく肝の佩は腎易かタブではじまる
? はに
? 個佩は n に
? , は , に

iCal で芦畠な侘塀
sub ical_safe {
????my $str = shift;
????$str =~ s///g;
????$str =~ s/n/n/g;
????$str =~ s/,/,/g;
????my @rounded = ();
????while ($str =~ s/^(.{1,75})//) {
????????push @rounded, $1;
????}
????return join("n ", @rounded);
}

恷�K議に

? https://gist.github.com/3282049

まとめ
? User-Agent を iPhone は吭翌に辰泣
? Web::Scraper やっぱり宴旋
? 採並も CPAN に�mらない
? アイドル�eのほうが互まれる
? http://www.amazon.co.jp/dp/B008OI71MK

際際滷

寔?ドルヲタを屶える室宝

More Related Content

寔?ドルヲタを屶える室宝