友達用

jinx_fav.pl

#!/usr/bin/perl
use strict;
use warnings;

use Net::Twitter;
use URI::Escape;

my ($id, $latest_id);
my $twi = Net::Twitter->new({
	traits => ['API::RESTv1_1'],
	consumer_key => '',
        consumer_secret => '',
        access_token => '',
        access_token_secret => '',
        ssl => 1
});

while (1) {
	my $res = $twi->search({
		q => 'jinx',
		result_type => 'recent'
	});
	for (@{$res->{statuses}}){
		$id = $_->{id};
		last if $_->{text} =~ /jinx/; 
	}
	$twi->create_favorite($id) unless $latest_id == $id;
	$latest_id = $id;
	sleep 10;
}