YappoLogs: Module::Setup - pmsetupをモジュール化した
Module::Setup - pmsetupをモジュール化した Perlのモジュールをまず最初に作る時はpmsetupやModule::Starterなどを使うのが一般的です。 かく言う余もpmsetupでガリガリ書いてたんですが、はこべさんやらdannさんやらの最近の記事を見て思う所もあってpmsetupをモジュール化してみました。 http://svn.coderepos.org/share/lang/perl/Module-Setup/trunk/ 使い方は簡単！cpan Module::Setupでinstallして(まだCPANにあげてないよ！) $ module-setup Foo:Bar を実行するだけ！ ほぼpmsetupと同等の挙動でひな形を作ってくれます。あらべんり！ これだけじゃまったく意味が無いのでModule::Setupらしい所を。。。 flavor Modu
YappoLogs: PHPの関数と同等の実装をPerlでどう書くリファレンスプロジェクト開始のお知らせ
PHPの関数と同等の実装をPerlでどう書くリファレンスプロジェクト開始のお知らせ ふとしたきっかけでPHPのリファレンスマニュアルにある関数と同等の機能をPerlで実装するにはどうするか?といったリファレンスを作るプロジェクトを始めました。 PHP使いの人がPerlを弄る時に「PHPのこれPerlでどうやれば良いんだ！」といった要望や、ごく普通のPerl使いの人が「これどうやって書けば良いのかな?」って時に使うcookbook代わりに使える事を想定しています。 ドキュメント管理にはgithubhttp://github.com/yappo/docs-php-funcref-in-perlを使い、ドキュメントのビューワーとしてwikihubWikiHub :: php-funcref-in-perl :: READMEを使っています。 書いて欲しいと思った人にはあらかたコラボレータ入れてる
YappoLogs: Ajax アプリ等の為の JavaScript コードのテストツール JSTAPd を作ってるよ
Ajax アプリ等の為の JavaScript コードのテストツール JSTAPd を作ってるよ Data::ObjectDriverをDISってる人の話題が三周目に突入した今日この頃ですが皆さんは何をDISってますか?Yappoです。 JavaScript にもテストツールが色々とあると思うんですが、 Ajax アプリの XHR リクエストとかも含めてラクチンにテストできるツールが見つからなかったので JSTAPd というツールを作りました。 http://github.com/yappo/JSTAPd 名前の通りテスト結果はTAPで出力してるのでproveコマンドとかを使ってPerlの作法でテストできます。 ブラウザの連携の設定をすれば prove -v foo/hoge.t とかをコマンドで打ち込めば勝手にブラウザ立ち上げてテストコード実行してブラウザ閉じて結果をコンソールに吐いてく
YappoLogs: HTTP::EngineとPSGI - HTTP::Engine is died?
HTTP::EngineとPSGI - HTTP::Engine is died? HTTP::Engine は元々 ・各種Webサーバに依存した処理がWAF毎に分散してるのをまとめたい！ ・Request/Responseも共通化したい！ という所からスタートしたプロジェクトな訳ですが、今回PSGIが始まる事によって前段の部分をPSGIに委譲して、Req/Resの共通化は今まで通りありますよと言う話。 今回のPSGIは「HTTP::EngineのInterfaceのレイヤとReq/Resのレイヤが絡み付いてて良く無いんで、良い感じに分離したいよね」という所から始まった感じ。 結局はPSGIは仕様なので、それを実装するのはHTTP::Engineの内部になるかもしくはRack的な物を外に作ってやるかという事になるけど(後者の方向)、HTTP::Engineの内部でPSGIと既存のReque
YappoLogs: PSGIの簡易ランチャー作ったよ
PSGIの簡易ランチャー作ったよ HTTP::Engineは、ちょっとした一枚スクリプトをサーバ化する便利な利用方法がありますが、それをPSGI実装向けにやってくれるアプリを昨日の帰りの電車の中で書きました。 http://github.com/yappo/App-Ksk/tree/master 使い方は簡単で、下記のようなスクリプトを書いて package KskExample::Sample1; use strict; use warnings; sub handler { my($class, $ksk, $req) = @_; my $body = qq{ <h1>Welcome To Ksk World.</h1> you request uri is @{ [ $req->uri ] }.<br /> }; my $res = $ksk->psgi_response_class
YappoLogs: AnyEvent はじめ
AnyEvent はじめ そろそろAnyEventでもやってみようと思ったので AntEvent::Handle いわゆるIOまわりの面倒を色々便利にやってくれる君。イベントベースなIOと言うよりかはevent queueなIOみたいな捉え方するとすんなり。 read/writeの処理はqueue的な感じで登録できるの。 ->push_read() で、どんどんqueueにreadイベントを登録してく。fhがreadableになったらread queueがどんどん処理されるってわけ。 ->unshift_read() だと、queueの先頭に突っ込んでく。 そう、まさしくperlのarrayへのpush/unshiftそのもの。AnyEvent::Introを読むとその辺の命名に関する思いが読める。 ->push_write() だと、writeイベントを登録してく。writeできるように
YappoLogs: Hash::Merge 活用術
Hash::Merge 活用術 「全裸は違法だということを言われた。ええええ、そんな法律があるのか？Debugはできるようになるかもしれない。」と思っておセンチなyappoです。 hashを簡単にmergeするCPAN moduleとしてHash::Mergeがあるのは有名ですが、デフォルトだと色々頑張ってマージしちゃうので、例えばHTTP::Engine::Middlewareの使いたいMiddlewareをARRAY refで書いちゃったりして、base.yamlとproduction.yamlでmergeした時に、以下のような混ざりかたでとんでも無い目にあいます。 use strict; use warnings; use YAML; use Hash::Merge; my $base = { Middlewares => [ { module => 'HTTPSession', c
YappoLogs: TokyoCabinetがPerlのHASHより遅いわけがない！
TokyoCabinetがPerlのHASHより遅いわけがない！ こんにちわ！金曜日担当・Shibuya内フェアリーことYappoです。 mixi Engineers’ Blog » PerlとRubyで省メモリなハッシュを使おうにて 100万件のレコードを格納した場合のメモリ使用量と処理時間を測ってみましょう。Perl（5.8.8）でテストコードを動かしたところ、以下の改善が確認できました。標準のハッシュに比べて、メモリ使用量がTCのオンメモリハッシュだと約61%、TCのオンメモリツリーだと約37%になることがわかります。処理時間に関しては157%ほどになっていますが、まあ許容範囲ですよね。といった事が書かれており、その文面の上の解説で、tieしたので、tieしてるからおせーんじゃねーの？とテストコードも見ないで呟いてたらmikioさんからtie使わないでやってるよ！とつっこんでいただき
YappoLogs: Shibuya.pm #11で発表しました
Shibuya.pm #11で発表しました こんにちは、本日のHOTEL担当、素敵なレディーことYappoです。3人の荷物が家族のオモチャにされないか心配だけどもう寝るぞ！話は変わるけど、acotieさんはアクメアクメ言っててどんだけアクメ好きなんだよ！と思ったのは内緒だぞ！ という訳でShibuya.pmで発表してきました。二本立てです。 一本目は、一般的なperl userの作法のBやらDevel::Peekの紹介に加えて、新しく作ったDevel::RunOpsAnalizeを使ってOPCODEの実行単位でPerlの動作を覗き見る方法の紹介をしました。 二本目はLTで、dan the eval botの作り方を説明する為のCentOSのインストールをするというのを口実にHatetterのアーキテクチャや、なぜこれらの要素を採用したかを紹介しました。 もちろんCentOSのインストールも
YappoLogs: Perlで数有る$selfを取る手法をベンチマーク取った
Perlで数有る$selfを取る手法をベンチマーク取った PerlでOOなコード書く時のコンテキストを取る方法は色々あります、最近audreyがselfvarsをリリースしたので、gugodのself.pmとingyのSpiffyそして、既存のmy $self = shift;やshift->や$_[0]->で$selfを取る方法それぞれのベンチマークを取ってみました。 テストコードのモジュール名は、それぞれのモジュールの作者名から取り、既存の手法はYAPC::Asiaでプレゼンした事のある日本を代表するPerlな企業のCTOからモジュール名を取らせていただきました。 コードは以下の通りです。 package Audrey; use strict; use warnings; use selfvars; sub new { bless { count => 0 }, shift } sub
YappoLogs: TypePad Connect + Yacafi で掲示板作った
TypePad Connect + Yacafi で掲示板作った TP Connect BBSという掲示板CGIを作りました。 Connectはコメントにリプライとか付けられるので、とりあえず適当なpermalinkさえあれば掲示板になるんじゃないかと思って作ってみました。 ソースコード見れるようになってるので見れば判るのですが、掲示板名だけ若干サーバにファイルを作りますが、uriの中に掲示板名仕込んでいるのでディスクレスな掲示板運用も可能です。 Yacafiのサンプルもかねて見たのでどうぞご利用下さい。 Posted by Yappo at 2008年11月21日 21:20 | TrackBack | 私的サービスめも
YappoLogs: List::Rubyish をリリースしました
List::Rubyish をリリースしました ブクマコメントでnaoyaさんからhttp://github.com/naoya/list-rubylike/tree/master/lib/List/RubyLike.pmがバグも無くていい奴だから、そっちとdiffとって適用したほうがいいよ！とアドバイスいただいて、その差分をmergeしつつList::RubyListのテストコードをコピペするだけの簡単なお仕事をしてテストカバレッジ率も100%になったのでshipitしました。 というかnaoyaさん & secondlife 組の元コードのテストカバレッジ率が90%くらいだったので物凄く楽出来ました＾＾ http://search.cpan.org/dist/List-Rubyish/にそのうち反映されるはず。 List::RubyLike は use すると list 関数を exp
YappoLogs: ウェブエンジニアをしていて知らないと恥ずかしい日本人プログラマ300
ウェブエンジニアをしていて知らないと恥ずかしい日本人プログラマ300 ウェブ関係で仕事をしていて知らないと恥ずかしい日本人100があまりにあんまりでブクマするのも恥ずかしいので、日本のWeb周りでエンジニア(特にプログラマかな)で知らないと恥ずかしい日本のプログラマ(主にWebに関わる的な意味で)100人のリストを作ろうと思う。 今のところ目標の1割くらいリストアップ出来た。まだまだ足りないのでもっと追加する。 14時: いっぱい追加 OPML化はerogeekがやってくれると思うのでOPML作ったよエントリを発見し次第リンクします。 OPML ktkr! yusukebe++ ゆーすけべー日記: ウェブエンジニア（略）と恥ずかしい日本人プログラマ300のブログを列挙祭り 以下敬称略順不同 yoshiori - java-ja ats - Python ひがやすお - Java 羽生章洋
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
