PerlでNet::Twitter::Liteを使ってﾂｲｯﾄするやつ。よく忘れるのでメモ

tweet.pl

#!/usr/bin/perl

use strict;
use warnings;
use Net::Twitter::Lite;
use Encode;

my $consumer_key = 'こんしゅーまーきー'
my $consumer_secret = 'こんしゅーまーしーくれっと';
my $access_token = 'あくせすとーくん';
my $access_token_secret = 'あくせすとーくんしーくれっと';

my $t = Net::Twitter::Lite->new(
	consumer_key => $consumer_key,
	consumer_secret => $consumer_secret,
	access_token => $access_token,
	access_token_secret => $access_token_secret,
	legacy_lists_api => 0 
	#legacy_lists_apiを0にしないと実行する度にいらんお知らせがでる
	);

$t->update({status=>decode('UTF-8',"hello")});