uzullaがブログ

uzullaがブログです。

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円なら余裕でねらってあてられそう。