タグ

ブックマーク / blog.yappo.jp (9)

  • YappoLogs: goo.gl の API を叩いて goo.gl のショートURLを作る WWW::Shorten::Google ってモジュールかいた

    goo.gl の API を叩いて goo.gl のショートURLを作る WWW::Shorten::Google ってモジュールかいた http://goo.gl/ ってのが巷では始まっていますが、まだ勝手に tinyurl を作れないようなので 簡単に http://goo.gl/hoge な tinyurl を作る WWW::Shorten::Google ってモジュールを書きました。 http://github.com/yappo/p5-WWW-Shorten-Google CPAN には、各種 tinyurl を使って url を短くするための統一インタフェイスとして WWW::Shorten ってのがあるので、それの流儀にしたがって作りました。 Posted by Yappo at 2009年12月15日 19:54 | TrackBack | Perl

  • YappoLogs: Twitterはもう終わった、wassrやってなくて良いのは幼稚園児までだよね

    Twitterはもう終わった、wassrやってなくて良いのは幼稚園児までだよね なんだか知らないがTwitterAPI制限が一時間に20回までになってしまったようだ。 3分に一回しかtimelineを拾えない。 ただでさえ取りこぼしまくってるのに、もうこの制限じゃマトモにTwitter APIが使えなくなってしまったと言わざるを得ない。 この調子だとWebとかでスクレイピングとかするのにも制限はいるんじゃ無いか。 そんな皆さんにおすすめなのがwassrです! wassrにはAPI制限なんてありませんし、followとかとは別に個別のテーマのルームが作れたりします! しかも@で言及されたらメールでおしらせしてくれたり、secondlifeから書き込めたりとtwitterより凄いサイトなんです! wassr専用クライアントってのは凄くマイナーで数少ないけど、Twitter APIと同等なので

  • YappoLogs: 誰でも簡単にOpenID 2.0なOPを作る方法 and CodeReposでOpenID(2.0対応)プロバイダの提供始めましたのお知らせ

    誰でも簡単にOpenID 2.0なOPを作る方法 and CodeReposでOpenID(2.0対応)プロバイダの提供始めましたのお知らせ 先週のbuilder techtalkから俄然としてOpenIDが熱くなって来た今日この頃いかがお過ごしでしょうか。 先日参加して来たOpenID Hackathonの成果として、CodeReposがOpenIDのOpenID 2.0 Providerになりましたことをお知らせします。 CodeReposのアカウントをお持ちの方は、fastladderとかLIMLICとかのOpenIDでサインオンできるサービでOpenID URLをcoderepos.orgとだけ打ち込んでログインしてみて下さい。 2.0に対応していない所だったらhttp://coderepos.org/share/wiki/Committers/usernameとでも入れればいいと

  • YappoLogs: Twitterっぽいサーバースクリプト書いたよ

    Twitterっぽいサーバースクリプト書いたよ twitterAPItwitter以外でも互換APIだしたり、ライブラリとかがtwitter以外でも使えるようになってたりと、API周りが面白い今日この頃です。 大して深い意味は無いのですが、オレオレTwitterみたいのが欲しくなってサクっとTwitter APIが使えるサーバスクリプト書いてみました。 デモはhttp://tech.yappo.jp:11111/にて動いてます。 id/passwodはguest/guestもしくはtest/testです。 ソースはhttp://svn.yappo.jp/repos/public/misc/twitterd.pl 使い方はドキュメント書いてあるけど、htpasswdでユーザーアカウントを作成して、その作成したアカウントを使ってTwitterもどきにログイン出来ます。 サーバーを立ち上げた

  • YappoLogs: svk startup memo

    svk startup memo 生のsvnを使っていて良いのは中学生までなのでsvkを始めました。 といってもmacbookの方にはsvkを入れてたんだけど、あまり使っていなかったのでメインの開発環境にsvkを入れました。 ありきたりでつまらない内容ですがチラシの裏です。 installSVN::Mirror 0.72 は subversion 1.2 以上を要求してくるので、手元の環境で使えずに0.71を入れました。 LANG=jaな環境でinstallするとtestこけるのでLANG=C cpanな感じでinstallです。 そしてinstall SVKなのですが、06keyword.tでなんかこけるのでforce installです。(SVK 1.08) こけてる内容もクリティカルじゃ無いっぽいので無視です。 なんかsvk-devにも報告あがってるみたいだけど、よく読んでない。 s

  • YappoLogs: Geo::Coordinates::Converter - 緯度経度を簡単に変換する

    Geo::Coordinates::Converter - 緯度経度を簡単に変換する だいぶ再発明感があるのですが、緯度経度データを簡単に変換出来るモジュールを作りました。 Geo::Coordinates::Converter CPANにうp済みです。 既存で似た者は結構あったのですが、どれも変換処理がdatumのメソッド名直書きとか値がハードコードされてたりで、自由度低めだったので新しく作りました。 測地系/フォーマット等をプラグインっぽく簡単に追加出来る様にして座標周りのフレームワークとして使える様に実装しました。 使い方は use strict; use warnings; use Geo::Coordinates::Converter; my $geo = Geo::Coordinates::Converter->new( lat => '35.65580', lng => '1

  • YappoLogs CJTK - JSONPとJavaScriptを使ったテンプレートキット作った

    CJTK - JSONPとJavaScriptを使ったテンプレートキット作った JSONPなどでデータを取得して、HTML中の任意なAttributeにマクロを埋むタイプのテンプレートキットを作りました。 別にJSONPじゃなくても、staticもデータ構造を定義する事も出来るし、Ajaxサポート書けばAjax経由でデータを取得できます。 マクロ展開はDOM探索で色々処理をしています。 Model = JSONP 、 View = DOM って感じかも。 他にもJKL.Hinaや、JSmartyなどがあります、大きな違いは専用構文を利用しないでテンプレート展開が出来たりと、かなりシンプルです。 他の特徴は ・DOM操作のみでテンプレート展開 ・JSONP対応 ・テンプレート用のデータ領域を用意する事無く、HTMLに直接テンプレートを記入出来る ・データ展開先を設定不要。class要素などか

  • YappoLogs: MPEG::MobileInfo 携帯の動画を撮影した機種や撮影日時を読み出すPerlモジュール

    MPEG::MobileInfo 携帯の動画を撮影した機種や撮影日時を読み出すPerlモジュール Milano::Monolog: 着メロ・着うたのファイルから曲名やアーティスト名を読み出すPerlモジュールにインスパイヤされて公開してみます。 photos@yappoというpictoもどきで使っています。 CPANにうpろうと思い立ってからかなりの時間が経過してしまっとりますw みらのさんのと違って、こっちのはMPEG4を純粋にパースしてくだけだから各種方言には対応できてない感じですな。 MPEG::MobileInfo Posted by Yappo at 2006年05月01日 13:51 | TrackBack | Perl

  • YappoLogs: Xangoというクロウラーフレームワークを使ってみる

    Xangoというクロウラーフレームワークを使ってみる Xango XangoPerlで書かれた汎用クローラーフレームワークです。 イベント型フレームワークPOEを使用することにより高速なクローリングが可能です。 実装にもよりますが、単一プロセス内でインデックシングや文字コードの変換等の処理を 同時に行うアプリケーションでも1秒に5~8 URL、1時間で 18000 ~ 22000 URLの処理が行えます。 ドキュメントはperldocのみっぽいので、日語の情報を残す意味で使い方のメモをば。 相当端折って書いてます。 Xangoを使ったクロウラーを書くには、制御用のにPOEセッションを作る必要があります。 Xangoを制御するためのモジュールを適当な名前で作っておくのがスマートかと思います。 とりあえずセッション作成を行う処理を書きます sub spawn { my $class = s

    nektixe
    nektixe 2005/08/08
  • 1