[B! perl][API] nipotanのブックマーク

Twitterの新しいStreaming API「ChirpUserStreams」がすごすぎる件 - すぎゃーんメモ

最近発表されて、一部で話題を呼んでいるTwitterの新しいStreaming API「ChirpUserStreams」。まだdeveloperへのpreviewリリースということでプロダクトに使うようなことはできないけど。 http://apiwiki.twitter.com/ChirpUserStreams 今までのStreaming APIでは基本的に public timelineから、指定したキーワードを含む発言を拾う指定したユーザーの発言を拾うというものだった(はず)。検索系としては便利だけど、home_timelineのように自分がフォローしているユーザーの発言をStreamingで得ようとすると全idを繋げたものをリクエストパラメータとして送らないといけなかったりで、あまりカッコよくない形になってしまっていた。ところが今回使えるようになった「ChirpUserSt

nipotan 2010/04/23

sugyan++

リンク

Perl で Win32::API プログラミング入門 - 竹迫の近況報告

ActivePerl (Windows版) には Win32::API - Perl Win32 API Import Facility - metacpan.org が付属しているので、今日からすぐに Win32::API を利用したプログラミングが出来ます。簡単なメッセージボックスを表示するPerlプログラムは以下になります。 #!/usr/bin/perl use Win32::API; my $MessageBox = Win32::API->new("user32", "MessageBoxA", "NPPN", "N"); $MessageBox->Call(0, "Hello, World!\n", "Message", 0); このプログラム実行すると、「Hello, World!」と書かれたWindowsメッセージボックスが表示されます。これを Win32::API

nipotan 2009/03/25

リンク

WebService::Simpleが便利

ぐるナビ #!/usr/bin/perl use strict; use warnings; use utf8; use YAML; use WebService::Simple; my $key = 'hoge'; my $gnavi = WebService::Simple->new( base_url => 'http://api.gnavi.co.jp/ver1/RestSearchAPI/', param => { keyid => $key }, ); my $res = $gnavi->get({freeword => '焼うどん'}); warn Dump $res->parse_response; HotPepper #!/usr/bin/perl use strict; use warnings; use utf8; use YAML; use WebService::

nipotan 2009/01/26

リンク

ゆーすけべー日記: Perl から YouTube の新API を使って動画をアップロードする

サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ

nipotan 2008/03/13

リンク

Client Challenge

nipotan 2007/08/20

リンク

blog.kentarok.org - WebService::Hatena::Graph version 0.06 released

Today, I released the new version of WebService::Hatena::Graph along with some updates of Hatena::Graph API. It's become totally new, adding several features, getting graph data and setting/getting configurations. The feature to set new graph data has been offered since the API was released, but the method to enable users to do so is now renamed to postdata() from post() to distingish posting some

nipotan 2007/08/13

リンク

Net::Wassr - Hatena::Diary::Neko::kak 500 Internal Server Error

ものすごい適当につくってみた。 package Net::Wassr; use strict; use warnings; use LWP::UserAgent; use JSON::Any; use Encode; our $VERSION = '0.01'; sub new { my $class = shift; my %args = @_; $args{apiurl} ||= 'http://api.wassr.jp'; $args{apihost} ||= 'api.wassr.jp:80'; $args{apirealm} ||= 'API Authentication'; $args{user} ||= ''; $args{passwd} ||= ''; $args{source} ||= 'Net::Wassr'; $args{ua} ||= LWP::UserAgent-