へっぽこネットワークエンジニアのにっき

しあわせになりたい。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Net::Twitterを使ってとりあえず呟かせてみるテスト

引き続きPerlネタ(いまさら)

いまさら感はありますが、自分は初めてやるので無問題!!

参考はこちら
実用! PerlでコマンドラインからTwitter投稿(OAuth対応)-perl-mongers.org-

APIの登録の仕方から簡単なコードの書き方まで丁寧に書いてあります。感謝!!

・・・で、つぶやいてみるテストは以下


#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use Net::Twitter;

my $twit = Net::Twitter->new(
traits => [qw/API::REST OAuth WrapError/],
consumer_key => 'コンシューマーキー',
consumer_secret => 'コンシューマーシークレット',
ssl => 1,
);
$twit->access_token ('アクセストークン');
$twit->access_token_secret('アクセストークンシークレット');

$twit->update('てすと');
exit;

twitest.jpg
スポンサーサイト

コメント

コメントの投稿


管理者にだけ表示を許可する

トラックバック

トラックバックURLはこちら
http://heppokone.blog27.fc2.com/tb.php/439-d91704cf
この記事にトラックバックする(FC2ブログユーザー)

FC2Ad

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。