Wassr

AnyEvent::Wassrつくった

諸事情により、AnyEvent::TwitterのWassrバージョンが欲しかったので、作ってみた。 AnyEvent::Twitter - search.cpan.org 基本的にはこのAnyEvent::Twitterのパクリ。じゃっかんインターフェースを自分好みに変更してたりもするけれど。 ドキュメントは無い…

全裸で形態素解析をするスクリプト

ゲレンデがとけるほどくだらないスクリプト - すぎゃーんメモに引き続き、くだらないスクリプトを。 今度は動詞の前に「全裸で」を挿入する。 #!/opt/local/bin/perl use strict; use warnings; use JSON 'decode_json'; use LWP::Simple 'get'; use Text::M…

ゲレンデがとけるほどくだらないスクリプト

再びMeCabを使ってみた。 MacにてText::MeCabを使う - すぎゃーんメモ 形態素解析を使って適当なnickを作ってWassrに送信するまで - すぎゃーんメモ 今回は形容詞や動詞の前に「ゲレンデがとけるほど」を挿入する。 kohmingサブルーチンに日本語の文章を渡せ…

形態素解析を使って適当なnickを作ってWassrに送信するまで

MacにてText::MeCabを使う - すぎゃーんメモで下準備を終えた。 何がしたかったかというとこれ。 まずはこんなスクリプトを書いてみた。 #!/opt/local/bin/perl use strict; use warnings; use Text::MeCab; my $mecab = Text::MeCab->new(); my $n = $mecab…

Ubuntu上のtiarraでtig.rbとwig.rbを動かした

先日ようやく自宅サーバーでtiarraを動かしたので、そこでtig.rbとwig.rbを動かした。予想外に苦戦… Tiarraを使ってみる - すぎゃーんメモ tig.rbとwig.rbはIRCでTwitterやWassrのタイムラインを表示させたりPOSTしたりできるIRC Gateway。このあたりを参考…

Wassrでもらったイイネ!をスクレイピングして取得する

API経由だとJSONでないと取得できず、しかもリアルタイムなデータではないっぽい。 ので、Web::Scraperを使って取ってみるテスト。 #!/opt/local/bin/perl use strict; use warnings; use Encode; use Web::Scraper; use URI; # ユーザー情報 my $user = scr…

イイネワンライナー

$ perl -MLWP::Simple -MJSON -C2 -e '@f = @{$_->{favorites}} and print $_->{text}, $/, join($", @f),$/ for @{decode_json(get "http://api.wassr.jp/statuses/user_timeline.json?id=" . pop)}' <Wassr ID>何も出力されないとちょっと悲しい。</wassr>

Net::Twissrを使ってターミナルでTwitter&Wassr

せっかくNet::Twissrというモジュールを作ったので、それを使ってスクリプトを書いてみた。 Term::Screenを使ってTerminal.app上でfriends_timelineを一覧表示する。 ボタン一つで更新ができて、過去に取得したtimelineと並べて表示。 #!/usr/bin/perl use s…

Net::Twissrを更新

TwitterとWassrのタイムラインを合成するだけの簡単なモジュールを作ってみた - すぎゃーんメモで作成したPerlモジュール Net::Twissr をアップデートしました。 Changeset 28670 for lang/perl/Net-Twissr – CodeRepos::Share – Trac 大幅に依存関係を取り…

TwitterとWassrのタイムラインを合成するだけの簡単なモジュールを作ってみた

初めてPerlモジュールというものを作ってみました。 名前は「Net::Twissr」。 下記リンクにソースなどを置いてあります。CodeReposに初コミット!!。 /lang/perl/Net-Twissr – CodeRepos::Share – Trac Sabotterっぽく、TwitterとWassrのタイムラインを合わ…

1行friends_timeline取得

Twitter perl -MHTTP::Request -MLWP::UserAgent -MJSON -MEncode -le '($r=HTTP::Request->new(GET=>"http://twitter.com/statuses/friends_timeline.json"))->authorization_basic("username", "password"); print $_->{user}->{screen_name}." : ".encode…