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

Twitterの新しいStreaming API「ChirpUserStreams」がすごすぎる件 が大変注目されているということで、UserStream を使って自分の Time Line をだだ流す Web Application を作ってみました。 まず最初に留意事項ですが、follow などの event が発生した時点で API を引きに行くので、大量 event が発生すると API 制限に引っかかる可能性が非常に高いです。事業所などで出口 IP アドレスが一つの環境だと(以下略 ということで、よろしくお願いします。 ソースコードはこちらです http://gist.github.com/378540 1ファイルで動くので、必要なモジュールは各自なんとかしていただきたく。 まず Config::Pit で twitter のアカウントを設定して下さい。 $ perl -MCon

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

自分用メモです。 いろいろなサイトを参考にしましたが、完全なコードが見つからなかったのでとりあえずリンクは省略します。 TwitterのOAuthClientを下記URLから設定 http://twitter.com/oauth_clients consumer_keyとconsumer_secretを取得する。 おおまかな流れ index.html からリンクで sample.pl にアクセスし、TwitterのOAuth許可用のページへリダイレクト。 OAuth許可用のページで許否を設定後、sample.pl で設定した callback_url (ここ重要)へリダイレクトされる(この場合はcallback.pl)。 callback.pl で oauth_token と oauth_verifier を取得し、updateを試みる。 成功であれば、ツイート先へ、失敗であればTwitt

久々に Perl 書いた #! /usr/bin/perl use strict; use warnings; use utf8; use DBI; use HTTP::Date; use Net::Twitter; use File::Basename; use Data::Dumper; use Config::Pit; my $config = pit_get('twitter.com'); my $dbh = DBI->connect('dbi:SQLite:twitter.db', '', '', { AutoCommit => 0 }); die DBI->errstr unless $dbh; my $twitter = Net::Twitter->new( username => $config->{username}, password => $config->{pass

NAME Net::Twitter::Lite - A perl interface to the Twitter API VERSION version 0.12008 STOP! You probably want Net::Twitter::Lite::WithAPIv1_1 which has support for Twitter API v1.1. If you're using a service with an API compatible with Twitter's deprecated API v1, then you're in the right place. SYNOPSIS use Net::Twitter::Lite; my $nt = Net::Twitter::Lite->new( username => $user, password => $pass

Net::Twitter::Liteモジュールを使用してコマンドラインでTwitterの表示をするPerlスクリプトです。 準備 C:\work> ppm install YAML::Syck (YAML::Syckモジュールをインストール) C:\work> ppm install Net::Twitter::Lite (Net::Twitter::Liteモジュールをインストール)スクリプト(printw.pl) #!/usr/bin/perl use strict; use warnings; use Encode; use YAML::Syck; use Net::Twitter::Lite; use Data::Dumper; my $yaml = 'printw.yaml'; my $conf = YAML::Syck::LoadFile($yaml) or die qq{$y

同僚のmasarusanjpとしゃべっていて、 「MAGIが否決とか可決してくれるbotっていいですよねー。」 「お、いいね、でもエヴァ終わる前に作んないとだめじゃね？」 といった勢い。大事です。 http://twitter.com/magi_bot 概要 @magi_bot ほげほげしたい。 例：http://twitter.com/connvoi_tyou/status/2582362513 見たいな感じにつぶやくと。 @connvoi_tyou MAGIにより "ほげほげしたい。" は否決されました。 MELCHIOR:否決 BALTHASAR:否決 CASPER:可決 例：http://twitter.com/magi_bot/status/2582916646 見たいにリプライかかえってくると。 中身 １．Net::Twitter経由でmenstionsを取得 ２．md５して最

http://coderepos.org/share/browser/lang/perl/Net-Twitter-Scraper ぜんぜんできてないけどコミッた。他力なんとかってやつです。 Twitter API を使わずにスクレイピングだけで Net::Twitter とそれなりに互換の機能＋αを実装しようかと。 今ならみんな大好き Web::Scraper のコード書き放題だよ。 #!/usr/bin/perl use strict; use warnings; use YAML; use Net::Twitter::Scraper; my $tw = Net::Twitter::Scraper->new( username => 'xxxxxx', password => 'xxxxxx' ); my $res = $tw->archive(); binmode STDOUT, ':

2009年06月04日23:45 カテゴリTips API - Twitterfeed から Hatena::Bookmark Web Hookへ 今まで本blogのTwitterにおける更新通知は、ttwitterfeedでやっていたのだけど、これを期にはてなブックマークの Web Hook 経由に切り替えました。 twitterfeedだと、一時間ごとの確認なので、本blogへの投稿がtwitterに投稿されるまで最大一時間かかるのですが、これだとセルクマした瞬間に投稿が行われるので反映がずっと速くなります。 Source: #!/usr/env/bin perl use strict; use warnings; use utf8; use CGI; # use Net::Twitter; - prereqs too heavy! use LWP::UserAgent; use UR

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28

第1回の北海道開発オフ部に参加してきました。オフの状況は別途レポートするとして、作っていたサイコロ振りボットがここまでできたよ、という「作業報告」をしたいと思います。あれだけ黙々と作業してて、何もできてないってのもあれなんで。 今回はユーザーと対話できるBotを考えていました。内容はともかく、とりあえずテンプレートとして使える方向を目指します。 2008/02/16 追記 「[プログラミング]Twitter Botの続き | コマネタ帳」に続きを書きました。

Perl なんて触ったことない人ですが、とりあえず動いたのでメモ書き。とは言え、 「作ってみる」なんてのは嘘で、ほぼコピペです。すみません m(_ _)m 基本方針 参考ページ [プログラミング]北海道開発オフで Twitter bot を作ったよ | コマネタ帳 基本的にここのスクリプトを動かすことしかしてません。いようつさんありがとうございます。 さて、Twitter から呼びかけを読み込むには「API」「Web ページ」「IM」の 3 通りがあります。 API は制限がうざい、Web ページは変更の可能性がある、ということでとりあえず IM 経由。 つまり、Bot のアカウントで IM を登録しておき、そこからメッセージを取得することで スクリプト内に発言をげとしてしまう感じです。 続いて Bot が発言する方は API を利用します。こちらも IM 経由にしたり、Web ページにし

friends_timeline APIはsinceをつけないとキャッシュされる friends_timeline APIは、twitter.com/homeと同じメッセージ抜けがある。 ログインしてないときのtwitter.com/with_friendsも同じメッセージ抜けがある。 現状、ログインしたときのtwitter.com/with_friendsが一番信頼できる。 Basic認証でtwitter.com/with_friendsをとってもいい。 Basic認証+twitter.com/with_friendsは、70アクセス/60分制限にひっかからない twitter.com/with_friendsのHTML解釈はめんどうなので、status_[0-9]+を拾ってIDだけ取得 本文はAPIで取得するのが楽 protectedのない人なら認証なしのshow APIでメッセージ本

こないだ Twitter ネタを別の場所で書いてたらちょっと人気になってたんですが、その影響かわからないですが、Twitter の私に対して 24 時間の間で 50 人以上の方から follow されました。 私の場合、基本的にあんまり自分から follow はせず、「他の人から follow されたらこちらからも follow し返す」というポリシーで利用しているのですが、(時々ウザかったら remove したりしつつ) ふと気がついたら数百人とかいう状況でした。 で、何やかんや今まで follow されたら、イチイチブラウザでその人のページ開いて、あの重くて重くてしかたのない画面でポチポチと follow ボタンを押したりしてたんですが、昨日はさすがに follow されまくったおかげで途中から段々とウザくなりました。 途中から「基本、follow されたらし返すから、自動でいいじゃん