YAPC::Asia Tokyo 2010で発表してきました - spiritlooseのはてなダイアリー
YAPC::Asia Tokyo 2010で発表してきました。資料は Slide Share においておきました。 Write good parser in perlView more presentations from Jiro Nishiguchi. 会場にこられていた方々、どうもありがとうございました！。 また、時間が足りなくて最後のほうがかなり駆け足になってしまってすみませんでした。 今回のYAPCは、いろいろな発表を聞いて得るものも多かったですし、またいろいろな方々と直接お会いしてお話できてよかったです。 Larryにサインも貰えました！ 言語設計者たちが考えることposted with amazlet at 10.10.18 オライリージャパン 売り上げランキング: 1118 Amazon.co.jp で詳細を見る
mod_psgi を実装してみた - spiritlooseのはてなダイアリー
http://github.com/spiritloose/mod_psgi PSGI を実装したApache2モジュール。 % make && make installでインストールできて、 LoadModule psgi_module modules/mod_psgi.so <Location /psgi> SetHandler psgi PSGIApp /path/to/app.psgi </Location> で動く。 がーっと書いたのでまだまだの部分が多いとはおもうけど、一通り実装できたと思う。 Plack::Test::Suite を使ったテストも書いた。 http://github.com/spiritloose/mod_psgi/blob/master/t/suite.t mod_perlのようにApacheの機能を提供する必要はなく、アプリケーションへはenvを渡せば い
Schenker - RubyのSinatraのようなフレームワーク作成中 - spiritlooseのはてなダイアリー
http://github.com/spiritloose/Schenker 前に Ruby の Sinatra を触ってみていいなとおもったので最近作り始めた。 ひととおり機能はそろってきたので公開してみる。 HTTP::Engine + HTTP::Engine::Middleware + HTTPx::Dispatcher + Sinatra風インターフェース みたいな感じのフレームワーク、っていうかDSL。 # myapp.pl #!/usr/bin/env perl package MyApp; use Schenker; get '/' => sub { 'Hello, world!'; }; get '/hello/:name' => sub { my $args = shift; "Hello, $args->{name}!"; }; で `./myapp.pl` すると動
SennaStore for Perl でけた - spiritlooseのはてなダイアリー
CodeReposのアカウントをいただけたので、コミットした。 http://coderepos.org/share/changeset/4356 use Senna; use Senna::Constants qw(SEN_CTX_USEQL); my $db = Senna::DB->open(path => '/path/to/senna.db'); my $ctx = Senna::Ctx->open(db => $db, flags => SEN_CTX_USEQL); $ctx->send(<<END_QL); (+ 1 1) END_QL my $data = $ctx->recv; # $data == 2 とかで。 パースはJSON::AnyとかText::CSV_XSとかで。 これでSennaStoreを使う覚悟がちょっとできてきた。 O/Rマッパー的なやつはやっぱり欲
spiritlooseのはてなダイアリー - MySQL Proxyがおもしろそう
http://forge.mysql.com/wiki/MySQL_Proxy ほー・・・なかなかおもしろそう。 mod_proxy_balancer and mod_rewrite for MySQLみたいなかんじかなぁ。 といっても、tritonn みたいに MySQL に組み込むんじゃなくって、別プロダクトのサーバ。 load balancing fail over あたりが mod_proxy_balancer っぽくて Query interception Query rewriting Injecting queries あたりが mod_rewrite っぽい。 mod_rewrite みたいに挙動を選ぶ(PとかRとかPTとか)んじゃなくて、コアの挙動はなくて、全部 RewriteMap prg:/path/to/script みたいなイメージっぽい。 「--proxy-lu
Catalyst::Plugin::Authentication::Credential::Livedoor - spiritlooseのはてなダイアリー
livedoor Auth がでたわけですが、そのCatalyst::Plugin。 http://search.cpan.org/dist/Catalyst-Plugin-Authentication-Credential-Livedoor/ 機会があったら使わせていただこう。 many parts of this module are copy paste from Catalyst::Plugin::Authentication::Credential::BBAuth. とのことですが、さらにそのコピペ元は Catalyst::Plugin::Authentication::Credential::Hatena です・・・ で、 Document fixed. s/BBAuth/Livedoor/; とのことですが、まだ微妙にSYNOPSISにのこっちゃってますね・・・ 追記 0.0
QRコードデコードライブラリlibdecodeqrを使ってみた - spiritlooseのはてなダイアリー
http://trac.koka-in.org/libdecodeqr すばらしい。 デコードライブラリはいままでなかったような。 追記 トラックバック先にありますが、弾さんよりJavaならあるよとのことです。 http://blog.livedoor.jp/dankogai/archives/50789549.html http://qrcode.sourceforge.jp/ 他にもあるのかなぁ。 追記ここまで OpenCVを使っている。OpenCVで読み込めるフォーマットは読み込めるので便利。 で、試してみた。↓Perlモジュール http://spiritloose.net/tmp/Image-DecodeQR-0.01.tar.gz 追記 ↑CPANにリリースはもうちょっと待ってください。 Imager::QRCodeとくっつけようかっていう話をクラムチャウダーなお方としてるとこ
OpenCVを使って画像の物体認識をするPerlモジュール作った - spiritlooseのはてなダイアリー
作った。 http://search.cpan.org/dist/Image-ObjectDetect/ http://d.hatena.ne.jp/darashi/20070223/1172232765でRubyの拡張ライブラリを公開されていたので、こりゃやらなくちゃ・・・と思った次第です。すみません。 こんな感じで使えます。Imagerで顔を囲んでみた。 #!/usr/local/bin/perl use strict; use warnings; use Imager; use Image::ObjectDetect; my $file = 'picture.jpg'; my $image = Imager->new->read(file => $file); my $cascade = '/usr/local/share/opencv/haarcascades/haarcascad
libcsv 1.0.0、Text::CSV::LibCSV 0.10リリース - spiritlooseのはてなダイアリー
http://sourceforge.net/forum/forum.php?forum_id=671902 http://search.cpan.org/~jiro/Text-CSV-LibCSV-0.10/ libcsv メジャーバージョンリリース。 libcsvのインターフェースを変更してもらった。 libcsv使ってた方はスミマセンがインターフェースが変わってるので注意です。 コールバックに任意のデータを渡せないのが不便だったので、voidポインタを受け渡しできるようにしてもらった。 で、オブジェクト指向なインターフェースが作れるようになったので早速実装した。 従来のインターフェースはもちろんそのまま使えるけど、 my $parser = Text::CSV::LibCSV->new; $parser->parse($data, $callback); $parser->parse
CSVデータをお手軽/高速に扱うモジュール作った。 - spiritlooseのはてなダイアリー
CSVファイルを処理することがあったので、いつもどおりText::CSV_XSを使おうかなぁと思ったんだけど、最近libcsvっていうのを見かけたので試してみることにした。 というわけでPerlから使いたいので、適当にモジュール作った。 http://search.cpan.org/dist/Text-CSV-LibCSV/ 使い方は use Text::CSV::LibCSV; csv_parse($data, sub { my @cols = @_; # なんか処理 }); こんだけ。楽チン。 こんなスクリプトでベンチとってみたところ、Text::CSV_XSの倍以上速い。 そんなわけで、そこそこ使えるんじゃないかと思います。 libcsv入れるのがちょっとめんどくさいけどね。 なんか作者にチラッと10行ぐらいのメールしといたら5倍ぐらいになって帰ってきてる・・・ バグ報告もたっぷり。
XSモジュールでプロトタイプ宣言 - spiritlooseのはてなダイアリー
http://subtech.g.hatena.ne.jp/yappo/20070302/1172797971 XSでどう書くか分からないけど use Text::CSV::LibCSV; csv_parse { my @cols = @_; # なんか処理 } $data; とか書けるようになると、どうなんだろう。 宣言部分を void csv_parse(callback, sv_data, opt = 0) SV *callback; SV *sv_data; int opt; PROTOTYPE: &$;$ # 以下略 こう変更すればいけますです。詳細は perldoc perlxsにて。 うーん。何も考えずにライブラリの関数と引数の順番同じにしたけれど、、、 プロトタイプ宣言はすっかり忘れてたなぁ。 まぁいいかぁ。
Google Gadgetつくってみた - spiritlooseのはてなダイアリー
この前行って来たカンファレンスでGoogle Gadgetの話を聴いて来たので、せっかく聴いたんだからなんか作ろうかなぁということで作ってみた。 livedoor Reader の未読件数を表示する。 追加はここから。コードはここに。 かなり簡単に作れた。 submitもしておいたので、公式にもそのうちのると思う。 設定画面とかは自動的に生成されるので作る必要はないし、XMLHttpRequestはGoogle側でProxyしてくれる(_IG_FetchContent)ので、よそのAPIとかも簡単に叩ける。 Google Desktopのガジェットも実は出来てるけど、パッケージに固めるとなぜかインストールできないので調べ中。
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
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のはてなダイアリー - Vimで括弧/クォートを自動補完
人がコード書いてるところを見ると、閉じ括弧を先に入力してひとつ戻ったり、あとで入力するつもりで閉じ忘れていたりと、無駄な苦労だなぁとおもうことがよくある。 Vimで以下の設定をしていると括弧やクォートを入力したときに自動で閉じてくれる。 Eclipseとか、VS.NETとかの一般的なIDEの動作に近い感じ。 inoremap { {}<LEFT> inoremap [ []<LEFT> inoremap ( ()<LEFT> inoremap " ""<LEFT> inoremap ' ''<LEFT> vnoremap { "zdi^V{<C-R>z}<ESC> vnoremap [ "zdi^V[<C-R>z]<ESC> vnoremap ( "zdi^V(<C-R>z)<ESC> vnoremap " "zdi^V"<C-R>z^V"<ESC> vnoremap ' "zdi'<C-
はてなダイアリーでもソースコードのハイライト表示をする - spiritlooseのはてなダイアリー
はてなダイアリーユーザとしては、はてなグループのシンタックス・ハイライトがちょっと羨ましいわけだけど(よくソースコードを張るので)、似たようなことを出来るようにツールを作ってみた。 http://vimcolor.spiritloose.net/ たぶんもう似たようなやついっぱいあるとおもうけど。 たぶんはてなグループのやつと互換性あります。 はてなグループと同じく、1行目が shebang の場合は auto のままで判別できるっぽいです。 1行目が shebang じゃない場合は type を選択してください。 ソースはここに。 生成された html を張るとこんな感じに。 ソースは適当にこれにした。 #!/usr/local/bin/perl use strict; use warnings; use Encode; use Encode::Guess qw(utf8 euc-jp
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 = (
Vimの中からprove - spiritlooseのはてなダイアリー
unwind-protect: Emacs の中から prove Emacsの中からproveを実行するという設定らしい。 自分の環境のVimでは以下のように設定している。 autocmd BufNewFile,BufRead *.t set filetype=perl autocmd BufNewFile,BufRead *.t nnoremap <F5> :!prove %<CR>1行目で、.tの拡張子のファイルを filetype=perl で開くように設定。 これで、テストファイル自体の文法エラー修正とかは普通のPerlスクリプトと同じく make→copen で出来るように。 もちろん syntax highlight も Perl になる。 2行目の設定は、で開いている .tファイルを prove で実行するようにする設定。 他のグローバルな設定は nnoremap <F5>
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Text::TinySegmenter(TinySegmenterのPerl移植版)リリース - spiritlooseのはてなダイアリー
Geo::Coder::Ja に郵便番号からの変換機能を追加した - spiritlooseのはてなダイアリー
