OpenCVのPerlモジュール作成中 - spiritlooseのはてなダイアリー
OpenCVが1.0リリースされたのをきっかけにPerlモジュールを作ってて、APIの量が多すぎて放置気味だったんだけど、すこしやる気が出てきたので実装中。なんとなくガワはできてきた。 今のところこんな感じのことが出来る。かなり一部だけ紹介。 my $image = OpenCV->new( # 読み込み filename => 't/image/test.jpg', ) or die; my $clone = $image->CloneImage; # クローン $clone->Resize( # リサイズ width => 500, height => 156, ); $clone->CvtColor( # グレーに code => BGR2GRAY, color => 1, ); $clone->Erode; # 収縮 $clone->Dilate; # 膨張 $clone->Smo
オープンソースの GeoCoder 「geocoder.ja」がすごい - spiritlooseのはてなダイアリー
http://www.postlbs.org/postlbs-cms/ja/geocoder オープンソースの GeoCoder。「ジオコーダーじゃ」と読むらしい。 これはすごいな。 早速使ってみた。 まずデータを揃えるのが結構大変。 ゆうびんホームページの郵便番号データと国土交通省から街区レベル位置参照情報のデータを取ってきて、Windows専用のデータ変換ツールでデータを構築する必要がある。 国土交通省のデータのダウンロードがすさまじくだるい・・・ 普通にクリックしていくと多分全部集めるのに200回ぐらいクリックしなきゃいけない。 FireBugで多少楽はしたけど大変だった。 このありえないインターフェースはなんとかならんのかなぁ。 で使ってみた感じは、検索は非常に速い。 精度はGoogleMapsのGeoCoderとかにはかなわないけど、それなりにいい感じ。 一番詳細なレベルではてな
spiritlooseのはてなダイアリー - Perlでセル内改行つきのCSVファイルを処理する方法
PerlでExcelとかで作ったセル内改行(複数行にわたるレコード)つきCSVファイルを処理する方法。 意外と知らない人がいたので。 Text::CSV_XS を使って。 #!/usr/local/bin/perl use strict; use warnings; use IO::File; use Text::CSV_XS; my $fh = IO::File->new('test.csv') or die 'cannot open file'; my $csv = Text::CSV_XS->new({binary => 1}); until ($fh->eof) { my $columns = $csv->getline($fh); # $columns->[0] } $fh->close; syntax highlight by VimColor binary オプションが必要。
はてなダイアリーをタグクラウド化 - spiritlooseのはてなダイアリー
http://blog.bulknews.net/mt/archives/002078.html に影響されてちょっと作ってみた。 http://hdcloud.spiritloose.net/ こんな感じになる。 http://hdcloud.spiritloose.net/spiritloose/ IE6, Firefox 1.5, Opera 9.02で確認。他は知りません。 (Operaはスライダーが微妙におかしい) 同じくスライダーもつけたけど、機能は単語数を変更するやつにした。 せっかくなので、出来上がったタグクラウドを公開出来るようにした。 はてな認証APIでログインして、管理ツールでエクスポートしたCSVファイルをアップロードすると作れる。 環境は Catalyst + DBIC + mod_perl + MySQL。 そのほかは多分上のやつとほとんど同じ。HTML::Tr
Linux の sysinfo での load average - spiritlooseのはてなダイアリー
http://naoya.g.hatena.ne.jp/naoya/20061026/1161878147 ところで load average って 0.56 とかいう数字になると思ったら sysinfo が返すのは unsigned long な5桁とかの整数でこれをどう処理したらふだん見てる待ちプロセス数を基準にした値になるのかがよくわからない。 こんな感じですかね。 #include <stdio.h> #include <sys/sysinfo.h> int main(int argc, char **argv) { struct sysinfo info; if (sysinfo(&info) == -1) { printf("could not get sysinfo\n"); return 1; } double av1, av2, av3; double shift = (
Cache::Memcached::XSはちょっと速い - spiritlooseのはてなダイアリー
Cache-Memcached-XS-0.01 - client library for memcached (memory cache daemon) using libmemcache - metacpan.org libmemcache を使って書かれた Memcachedのインターフェース。 使い方はほぼ Cache::Memcached と同じっぽい。 速度にどのぐらい差が出るかベンチとってみた。 #!/usr/local/bin/perl use strict; use warnings; use Benchmark qw(timethese cmpthese); use Cache::Memcached; use Cache::Memcached::XS; my $bench = timethese(10000, { 'Cache::Memcached' => sub { m
Yahoo! BBAuth のモジュールを作ってみた。 - spiritlooseのはてなダイアリー
Yahoo::BBAuthっていうモジュールを作ってみた。 Yahoo! Browser-Based AuthenticationのAPIをハンドリングするモジュール。 サンプルはこちら。 ログイン成功すると、自分のアルバム(のカバー写真)一覧を表示する。 ソースはここに。 本家のPHPのモジュールを勢いでそのままポートした感じ(サンプルも)。 CPANにはあげないでおこうかなぁ。Yahoo::Searchみたいに中の人があげるかもしれないし。 これ使えばPhotosのAPIのモジュールとかもいろいろ作れると思う。 認証APIは他のサービスと結構似てる。ちょっとごちゃごちゃしてるけど。 ユーザー名が素直に取れないのはなんでだろ？(userhashしか取れない。デモのPhotos APIを使えばとれなくもないけど) はてな認証APIとかみたいに「ようこそ〜〜さん」とか出来ないよ・・・ 追記
ls をうちまくる人へ(zsh編) - spiritlooseのはてなダイアリー
[shell] ls をうちまくる人へ - Bulknews::Subtech - subtech 自分はあんまり ls 打たない、というのも .tcshrc で alias cwdcmd 'll' としていて、こうすると cd するたびに ll が勝手に実行されるから、必要ない。zsh でどうやるのかはしらないけど、たぶんできるでしょう。 自分ではzshをつかっているが、以下の設定をしている。 function cd() { builtin cd $@ && ls; }cd したあとにlsが実行される。 追記 おっと。上のやつはコメントアウトしてた・・ function chpwd() { ls }どっちでもいいけど。 追記2 id:naoyaさんのコメントより chpwd なら setopt auto_cd でも ok ぽ とのこと。 あ、そうか(auto_cdつかってないが・・・)。
ClearSilver の Perl バインディングを使う(Perlのテンプレートエンジンのベンチマーク) - spiritlooseのはてなダイアリー
ClearSilverネタが続いてるわけだけど、今度はPerlバインディングを使ってみた。 ClearSilverをインストールすると同時にPerlバインディングもインストールされるんだけど、PODには何にも書いてない・・ ここにAPIがのってるだけ。 というわけでサンプルは以下。 #!/usr/local/bin/perl use strict; use warnings; use ClearSilver; my $hdf = ClearSilver::HDF->new; $hdf->setValue('message', 'hello world!'); my $cs = ClearSilver::CS->new($hdf); $cs->parseFile('hello.cs'); print $cs->render;気になった点は TTになれてるので、メソッド呼び出しができないのが一
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
