livedoor ¤Ë¤ª¤±¤ë Twitter »îÓÃÊÂÀý¤È‚€È˵ÄȤζ¤ÊС¥Í¥¿¤¿¤Á¤Î¤´½B½é
?
0 likes?1,197 views
This document summarizes various Twitter tools and services developed by the author. It describes a Twitter auto-follow script from 2007 that uses the User Streams API to automatically follow followers. Other summarized projects include anonymous Twitter, a web scraper to view followers/following, and Twitter archives. The document promotes networking and knowledge sharing among Twitter developers.
![? (@nipotan)
?
? [ ] 4Gbps Web
? 2007 Twitter
?
Sep 11th, 2010 - Twitter Developer Meetup](https://image.slidesharecdn.com/twdev-nipotan-100913011348-phpapp02/85/livedoor-Twitter-2-320.jpg)
![Twitter AutoFollow (Oct 5th, 2007)
? http://gist.github.com/572863
#!/usr/local/bin/perl my $twitter = Net::Twitter->new(
????traits => [qw/API::REST OAuth/],
use strict; ????%$config,
use warnings; );
use Net::Twitter;
use Config::Pit; eval { $twitter->create_friend($header->{senderscreenname}) };
if ($@) {
my $message = do { local $/; <STDIN> }; ????warn $@;
????exit 0 if $@ =~ /is already on your list/;
my $header = parse_header($message); }
exit 0 unless $header->{emailtype} eq 'is_following'; exit 0;
exit 0 unless defined $header->{senderscreenname};
sub parse_header {
my $config = pit_get("twitter.com", require => { ????my $message = shift;
????consumer_key => '', ????my %header_data = ();
????consumer_secret => '', ????while ($message =~ m{^X-Twitter(w+):s+(.+)}gm) {
????access_token => '', ????????my $key = $1;
????access_token_secret => '', ????????my $val = $2;
}); ????????$header_data{$key} = $val;
????}
????return %header_data;
}
Sep 11th, 2010 - Twitter Developer Meetup](https://image.slidesharecdn.com/twdev-nipotan-100913011348-phpapp02/85/livedoor-Twitter-8-320.jpg)
![Twitter AutoFollow inspired products
? ¡°gmail follow follow ¡±
? http://d.hatena.ne.jp/kiririmode/20090503/p1
? ¡°[python] Twitter follow
¡±
? http://d.hatena.ne.jp/jYoshiori/20080526/1211828664
Sep 11th, 2010 - Twitter Developer Meetup](https://image.slidesharecdn.com/twdev-nipotan-100913011348-phpapp02/85/livedoor-Twitter-10-320.jpg)
livedoor ¤Ë¤ª¤±¤ë Twitter »îÓÃÊÂÀý¤È‚€È˵ÄȤζ¤ÊС¥Í¥¿¤¿¤Á¤Î¤´½B½é
- 1. livedoor Twitter http://nipotan.com/ Sep 11th, 2010 - Twitter Developer Meetup
- 2. ? (@nipotan) ? ? [ ] 4Gbps Web ? 2007 Twitter ? Sep 11th, 2010 - Twitter Developer Meetup
- 3. livedoor Twitter Sep 11th, 2010 - Twitter Developer Meetup
- 4. http://runlog.sports.livedoor.com/ ? ? post Twitter Sep 11th, 2010 - Twitter Developer Meetup
- 5. livedoor Blog http://blog.livedoor.com/ ? ? Tweet ? Twitter URL post Sep 11th, 2010 - Twitter Developer Meetup
- 6. http://tou.ch/ ? ? ( ) URL geocode Twitter post Sep 11th, 2010 - Twitter Developer Meetup
- 7. Sep 11th, 2010 - Twitter Developer Meetup
- 8. Twitter AutoFollow (Oct 5th, 2007) ? http://gist.github.com/572863 #!/usr/local/bin/perl my $twitter = Net::Twitter->new( ????traits => [qw/API::REST OAuth/], use strict; ????%$config, use warnings; ); use Net::Twitter; use Config::Pit; eval { $twitter->create_friend($header->{senderscreenname}) }; if ($@) { my $message = do { local $/; <STDIN> }; ????warn $@; ????exit 0 if $@ =~ /is already on your list/; my $header = parse_header($message); } exit 0 unless $header->{emailtype} eq 'is_following'; exit 0; exit 0 unless defined $header->{senderscreenname}; sub parse_header { my $config = pit_get("twitter.com", require => { ????my $message = shift; ????consumer_key => '', ????my %header_data = (); ????consumer_secret => '', ????while ($message =~ m{^X-Twitter(w+):s+(.+)}gm) { ????access_token => '', ????????my $key = $1; ????access_token_secret => '', ????????my $val = $2; }); ????????$header_data{$key} = $val; ????} ????return %header_data; } Sep 11th, 2010 - Twitter Developer Meetup
- 9. Twitter AutoFollow (Oct 5th, 2007) ? ¡°Twitter follow ¡± ? http://blog.livedoor.jp/nipotan/archives/50817627.html ? follow follow tip ? xxx (xxx is now following you on Twitter!) trigger ? qmail + Perl ? User Streams API {"event":"follow" ... } Sep 11th, 2010 - Twitter Developer Meetup
- 10. Twitter AutoFollow inspired products ? ¡°gmail follow follow ¡± ? http://d.hatena.ne.jp/kiririmode/20090503/p1 ? ¡°[python] Twitter follow ¡± ? http://d.hatena.ne.jp/jYoshiori/20080526/1211828664 Sep 11th, 2010 - Twitter Developer Meetup
- 11. nipotter (Oct 3rd, 2007) Sep 11th, 2010 - Twitter Developer Meetup
- 12. nipotter (Oct 3rd, 2007) ? ¡° Twitter ¡± ? http://subtech.g.hatena.ne.jp/nipotan/20071003/p1 ? web ? ? Twitter (Wassr, Jaiku ) ? friends_timeline API (¡ ) ? Tritonn Tweet (¡ ) Sep 11th, 2010 - Twitter Developer Meetup
- 13. nipotter inspired products ? OpenSource nipotter (by @tokuhirom) ? http://coderepos.org/share/browser/lang/perl/Nipotter/ ? perl + Sledge ? Jipotter (by @charsbar) ? http://coderepos.org/share/browser/lang/perl/Jipotter/ ? perl + Jifty ? Jifty nipotter Sep 11th, 2010 - Twitter Developer Meetup
- 14. Anonymous Twitter (Apr 19th, 2007) Sep 11th, 2010 - Twitter Developer Meetup
- 15. Anonymous Twitter (Apr 19th, 2007) ? http://anon-twitter.com/ ? Tweet ? Tweet @anontwit Tweet ? 2ch Tweet Tweet ? OpenID ? ? claimed identifier Sep 11th, 2010 - Twitter Developer Meetup
- 16. Twitter ? ¡°Web::Scraper following/followers screen_name ¡± ? http://twitter.g.hatena.ne.jp/nipotan/20081112/1226482516 ? ¡° ¡± ? http://twitter.g.hatena.ne.jp/nipotan/20081112/1226482516 ? 2 - ? http://twicom.info/ Sep 11th, 2010 - Twitter Developer Meetup
- 17. Sep 11th, 2010 - Twitter Developer Meetup