[B! perl][oauth] goto553のブックマーク

はてなブログ | 無料ブログを作成しよう

春の伊予国漫遊記。松山・今治と愛媛の魅力を満喫してきました。法事を兼ねて愛媛観光へ 2024年のGWは、毎年恒例の名古屋帰省ではなく自宅でゆっくり過ごしておりました。というのも、4月に法事のため愛媛・松山に親族大集合というイベントがありまして、そちらをGWの旅行代わりにしたという理由です。法事は日曜日の予定ということ…

goto553 2010/06/08

リンク

TwiterとOAuthとperlでの実装 - Lazy Programmer :-p

UmakatterにOAuthを利用した機能を組み込みました。 TwitterのOAuthなのですが、Net::Twitter を利用すると本当に簡単に実現できます。こんなコードです。 OAuthアカウント作成 http://twitter.com/oauth_clients にて、アカウントを作成してください。 Net::Twitter::OAuthじゃなくてNet::Twitter::Role::OAuthの方の PODを読むと吉 Net::Twitter::Role::OAuth に書いてある通りにやると、とても簡単に実装できます。(Typoがいくつかあるので注意) OAuth認証へのリダイレクトしょりこんな感じで、リダイレクトする前に、token, token_secretをユーザのクッキーに保存しておきます。 my $nt = Net::Twitter->new( %{$con

goto553 2010/06/04

リンク

TwitterのOAuth認証なボットを書くのは簡単 - d.aql

Twitterボットを書くこと自体はとても簡単だけれど、OAuth認証？面倒そう！って人がいそうなので、全然そんなこともないよ、と言う話を書いておこうと思う。いろいろ探すといくらでも出てくる情報ではあるのだけれど、APIへのアクセスをライブラリに任せているのならば、要するに問題はどうやってAccess Tokenを取得するかってことだけになると思うので、それについて。ここではPerlのNet::Twitterを使って書くけれど、どんなライブラリでもたいして変わらないだろうと推測される。 Net::TwitterでOAuth Net::Twitter::Role::OAuthのperldoc見て！と言ったら元も子もないので（本当にそれだけの話だけれど）、サンプルコードで。これもperldocに書いてある。 use Net::Twitter; my $nt = Net::Twitter->n

goto553 2010/06/03

リンク

Net::Twitter-3.13003 と Net::OAuth-0.24 の組み合わせで日本語がpost出来ない - FloralCompany.log

Net::Twitter-3.13003 と Net::OAuth-0.24 の組み合わせで日本語がpost出来ない [Perl] [twitter] 事の発端は、昨日 Net::Twitter をupgrade してpostしたらTwitter APIから "Incorrect Signature" って返ってきてなんじゃらほいってことから。とりあえず、Incorrect Signature でぐぐってみたら perlのNet::Twitterを更新したらOAuthで日本語がpostできなくなったという記事を発見。ひとまずNet::Twitterを3.13001に落として様子見。 Net::Twitterの3.13001から3.13003へのdiffを眺めつつそこから呼び出されてるNet::OAuthを眺めつつ。 Net::Twitter で $Net::OAuth::SKIP_U

goto553 2010/06/03

リンク

Net::Twitter::Role::OAuth - search.cpan.org

NAME Net::Twitter::Role::OAuth - Net::Twitter role that provides OAuth instead of Basic Authentication VERSION version 4.01043 SYNOPSIS use Net::Twitter; my $nt = Net::Twitter->new( traits => ['API::RESTv1_1', 'OAuth'], consumer_key => "YOUR-CONSUMER-KEY", consumer_secret => "YOUR-CONSUMER-SECRET", ); # Do some Authentication work. See EXAMPLES my $tweets = $nt->friends_timeline; my $res = $nt->up

goto553 2010/06/02

リンク

Net::Twitter - search.cpan.org

NAME Net::Twitter - A perl interface to the Twitter API VERSION version 4.01043 SYNOPSIS use Net::Twitter; use Scalar::Util 'blessed'; # When no authentication is required: my $nt = Net::Twitter->new(legacy => 0); # As of 13-Aug-2010, Twitter requires OAuth for authenticated requests my $nt = Net::Twitter->new( traits => [qw/API::RESTv1_1/], consumer_key => $consumer_key, consumer_secret => $consu