zozotownで、狙って1000円以上を当てる為のスクリプト
「ZOZOTOWNで100万円分のポイントがあたるよ!」
という事でこういうコード書いた。
#!/usr/bin/perl use strict; use utf8; use AnyEvent::Twitter::Stream; use Encode; use Data::Dumper; binmode STDOUT, ":utf8"; $| = 1; my $done = AnyEvent->condvar; #config my $user = 'uzulla'; my $password = 'PASSWORD'; my $method = 'track'; my $args = 'ZOZONUM'; my %args; $args{track} = $args; $method = 'filter'; my $streamer = AnyEvent::Twitter::Stream->new( username => $user, password => $password, method => $method, %args, on_tweet => sub { my $tweet = shift; print $tweet->{text}. "\n"; return; }, on_error => sub { my $error = shift; warn "ERROR: $error"; $done->send; }, on_eof => sub { warn "DONE: "; $done->send; }, ); $done->recv;
これで見てると
ZOZOナンバー[348446]番でした。残念! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348448]番でした。残念! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348449]番でした。残念! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348451]番でした。1000円ポイント当たりました!! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348452]番でした。1000円ポイント当たりました!! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348453]番でした。1000円ポイント当たりました!! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348454]番でした。残念! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348455]番でした。1万円ポイント当たりました!! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348460]番でした。残念! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348461]番でした。1000円ポイント当たりました!! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348462]番でした。1000円ポイント当たりました!! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348463]番でした。1000円ポイント当たりました!! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348464]番でした。残念! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348465]番でした。残念! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348466]番でした。残念! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348470]番でした。残念! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348471]番でした。1000円ポイント当たりました!! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348473]番でした。1000円ポイント当たりました!! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348474]番でした。残念! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348475]番でした。残念! http://t.co/????????? #ZOZONUM
ZOZOナンバー[348476]番でした。残念! http://t.co/????????? #ZOZONUM
とかでて、狙うのが楽になりますね!
っつーか、1000円なら余裕でねらってあてられそう。