¦‚½‚¾‚µA‚Ü‚¾“®ì‚É–â‘肪‚ ‚èA‰ü‘P‚ª•K—vB
ŋ߂̃uƒƒO‚É‚ÍA“Še‚·‚é‚ÆŽ©“®“I‚ɃcƒCƒbƒ^[‚É‹LŽ–‚Ì“Šeî•ñ‚ð“Š‚�ｿｽ�ｿｽ‚Ä‚‚ê‚é‚à‚Ì‚à‚ ‚邪A‚»‚ê‚ɑΉž‚µ‚Ä‚�ｿｽ�ｿｽ‚È‚�ｿｽ�ｿｽꇂɎg‚¦ ‚»‚¤‚¾B
‚Ü‚½ARSS Reader ‚Æ Twitter ‚Ì—¼•ûŒ©‚é‚Ì‚ª–Ê“|A‚Æ‚�ｿｽ�ｿｽ‚¤ê‡‚Í Twitter ‚ð RSS ƒŠ[ƒ_[‘ã‚í‚è‚ÉŽg‚¤A‚Æ‚�ｿｽ�ｿｽ‚¤—p“r‚à‚ ‚肤‚éB
‚½‚¾A–³”»’f‚É‚·‚�ｿｽ~‚Ĉø—p‚µ‚Ä‚µ‚Ü‚¤‚�ｿｽ}‚Æ‚É‚È‚é‚Ì‚ÅA‚¿‚å‚Á‚Æ–â‘肪‚ ‚é‚©‚à‚µ‚ê‚È‚�ｿｽ�ｿｽ‚ªB
#!/usr/bin/perluse strict;use utf8;use Encode::JP;require LWP::UserAgent;use XML::RSS::Parser;use Net::Twitter;my $ua = LWP::UserAgent->new;my $rss_p = XML::RSS::Parser->new;# ˆê——ƒtƒ@ƒCƒ‹“Ç‚Ýo‚µ# ƒ†[ƒU[–¼<>ƒpƒXƒ[ƒh<>ƒ^ƒCƒv<>RSS‚ÌURL<>ƒTƒCƒgƒ^ƒCƒgƒ‹# ‚Æ‚�ｿｽ�ｿｽ‚¤‘Ž®my $data_file = 'data.txt';open DATA, $data_file;flock DATA, 1;while (my $rss = <DATA>) { # €–Ú $rss =~ s/(?:\r\n?|\n)$//; next if $rss =~ /^#/; # ƒRƒƒ“ƒgs‚Í–³Ž‹ my @rss_items = split /<>/, $rss; # RSS “Ç‚Ýž‚Ý my $response = $ua->get($rss_items[3]); $response->is_success or next; my $rss_data = $response->content; # RSS ‚̃p[ƒX my @articles; if ($rss_items[2] eq 'type1') { @articles = parser_type1($rss_p, $rss_data); } else if ($rss_items[2] eq 'type2') { @articles = parser_type2($rss_p, $rss_data); } # type3 ˆÈ~‚à•K—v‚ɉž‚�ｿｽ�ｿｽ‚Ä‹Lq my $tw = Net::Twitter->new(traits => [qw/API::REST/], username => $rss_items[0], password => $rss_items[1]); foreach my $ar_article (@articles) { my @article = @$ar_article; my $message = "${article[0]} (${rss_items[4]}) ${article[1]}"; print STDERR Encode::encode('utf-8', "${message}..."); # Twitter ‚É“Še my $result = $tw->update($message); print STDERR "done.\n"; sleep 30; }}close DATA;sub parser_type1{ my ($rss_p, $rss_data) = @_; my @articles = (); my $rss_feed = $rss_p->parse_string($rss_data); foreach my $item ($rss_feed->query('/channel/item')) { my $dt_title = $item->query('title')->text_content; my $dt_link = $item->query('link')->text_content; push @articles, [ $dt_title, $dt_link ]; } return @articles;}sub parser_type2{ # •Ê‚̃^ƒCƒv‚ÌRSSƒp[ƒT[‚ð‹Lq}1;Twitter ‚Ƃ̃Cƒ“ƒ^[ƒtƒF[ƒX‚É‚Í
Net::Twitter ‚Æ‚�ｿｽ�ｿｽ‚¤ƒ‚ƒWƒ…[ƒ‹ (CPAN ‚©‚ç“üŽè‚Å‚«‚é) ‚ð—p‚�ｿｽ�ｿｽ‚½‚ªA‚Ù‚©‚̃‚ƒWƒ…[ƒ‹‚à‚ ‚邵AƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚Å curl ‚ðŒÄ‚Ño‚µ‚Ä‚à‚æ‚�ｿｽ�ｿｽBThings Every Developer Should Know
8) A command line is all you need to use the Twitter API
http://apiwiki.twitter.com/Things-Every-Developer-Should-Know#8AcommandlineisallyouneedtousetheTwitterAPInbsp
‚Ü‚½Aƒ‹[ƒv‚ÌÅŒã‚Å
sleep 30 ‚ð‚µ‚Ä‚�ｿｽ�ｿｽ‚邪A‚�ｿｽ}‚ê‚Í Twitter ‚̃Œ[ƒg�ｿｽ�ｿｽŒÀ‚ւ̑Ήž‚Å‚ ‚éBRate limiting1ƒAƒJƒEƒ“ƒg‚ɂ‚«A1ŽžŠÔ‚É150‰ñ‚Ü‚ÅA‚‚܂è24•b‚É1‰ñ‚Ü‚Å‚Æ‚�ｿｽ�ｿｽ‚¤�ｿｽ�ｿｽŒÀ‚ª‚ ‚é‚Ì‚ÅA‚µ‘½‚ß‚ÉA30•bŠÔƒXƒŠ[ƒv‚µ‚Ä‚�ｿｽ�ｿｽ‚éB
http://apiwiki.twitter.com/Rate-limiting
‘Oq‚Ì‚Æ‚�ｿｽN‚èA‚�ｿｽ}‚̃R[ƒh‚É‚Í‚�ｿｽ�ｿｽ‚‚‚©–â‘肪‚ ‚èA‰ü‘P‚Ì•K—v‚ª‚ ‚éB
‚Ü‚¸ARSS ‚Ì“Ç‚Ýž‚ÝŽž‚É•�ｿｽ�ｿｽŽš‰»‚¯‚·‚é‚�ｿｽ}‚Æ‚ª‚ ‚éB
•�ｿｽ�ｿｽŽš‰»‚¯‚·‚é‚Æ‚»‚êˆÈ~‚·‚�ｿｽ~‚Ä•�ｿｽ�ｿｽŽš‰»‚¯‚µ‚Ä‚µ‚Ü‚¤‚悤‚¾B
Œ�ｿｽLˆö‚Í‚Ü‚¾‚æ‚ŒŸ“�ｿｽ�ｿｽ‚µ‚Ä‚�ｿｽ�ｿｽ‚È‚�ｿｽ�ｿｽB
‚È‚�ｿｽNA‚�ｿｽ}‚Ì–â‘è‚Í PHP ‚Å“¯—l‚̃R[ƒh‚ð‘‚‚Æ�ｿｽ�ｿｽ‚�ｿｽ�ｿｽ‚È‚�ｿｽ�ｿｽ‚Ì‚ÅA’P‚É Perl ‚ł̃Gƒ“ƒR[ƒfƒBƒ“ƒO‚̈—‚Ì–â‘èB
‚Ü‚½A140Žš‚Ì•�ｿｽ�ｿｽŽš”�ｿｽ�ｿｽŒÀ‚ðl—�ｿｽ�ｿｽ‚µ‚Ä‚�ｿｽ�ｿｽ‚È‚�ｿｽ�ｿｽ‚Ì‚ÅA‚»‚Ì•�ｿｽ�ｿｽŽš”‚ðƒI[ƒo[‚µ‚Ä‚�ｿｽ�ｿｽ‚éꇂɂ̓Gƒ‰[‚ð‹N‚�ｿｽ}‚µ‚Ä“r’†‚ÅI—¹‚µ‚Ä‚µ‚Ü‚¤B
“Á‚ÉA‹LŽ–‚ÌURL‚ª’·‚�ｿｽ�ｿｽê‡‚à‚ ‚邾‚낤‚©‚çA‘Îô‚É‚Í‚¿‚å‚Á‚ÆH•v‚ª•K—v‚¾ (bit.ly ‚È‚Ç‚Ì URL ’ZkƒT[ƒrƒX‚ðŽg‚¤‚È‚Ç)B
‚»‚ê‚©‚çA‚Ç‚Ì‹LŽ–‚ð Twitter ‚Éã‚�ｿｽ�ｿｽ‚½‚©ŠÇ—‚µ‚Ä‚�ｿｽ�ｿｽ‚È‚�ｿｽ�ｿｽ‚Ì‚ÅAˆ—‚ÉŽžŠÔ‚ª‚©‚©‚Á‚Ä‚µ‚Ü‚¤B
(d•¡‚µ‚½‹LŽ–‚Í“Še‚³‚ꂸATwitter ‘¤‚ÅŽÌ‚Ä‚Ä‚‚ê‚é‚悤‚¾)
d•¡“Še‚ð”ð‚¯‚é‚É‚ÍA‚Ç‚Ì‹LŽ–‚ð“Še‚µ‚½‚©ƒf[ƒ^ƒx[ƒX‚ÅŠÇ—‚·‚é‚È‚ÇA‰½‚ç‚©‚ÌŽd‘g‚Ý‚ª•K—v‚¾B
