``` % perl -e '$HTML::Parser::VERSION; package MyApp; use base qw/HTML::Parser/; MyApp->new();' Can'

DBIx::QueryLog とかつかわなくても Callbacks を駆使すれば結構いけるよ!っていう話になった。いいね。 ``` use strict; use warnings; use DB

[ Proc::Guard をつかってこういう風にするのはどうか。$worker\_guard ってのが Scope::Guard あるいは AnyEvent の guard みたいなかんじになって

``` for ($foo) { return 1 if $_ == 1; return 2 if $_ == 2; return $_; } ```

``` #!/usr/bin/perl use strict; use warnings; use utf8; use Text::MicroTemplate qw/render_mt/; use

[ これ、英語でしか書いてなかったので日本語でダラダラ解説しておこうとおもいます。 これつくろうとおもった発端は、最近わたくし、DBIx::Yakinny っていう DBIx::Skinny っ

SQL::Abstract がなんともつかいにくいとか、DBIC にひきづられすぎているとかいう話があるんで、Data::ObjectDriver をベースにつくられた DBIx::Skinny::S

Japanese Perl Advent Calendar 2010 aka. JPerl Advent Calendar 2010 is ready to run!!! In this year,

``` use DBIx::Inspector; my $dbh = DBI->connect(...) or die; my $inspector = DBIx::Inspector->new(d

``` use utf8; use Encode; my $geta = Encode::encode($encoding, '〓'); Encode::encode($encoding, $str

conflict デザイナーに発注しやすくなるってのが最大の理由で。 あと、VCS で conflict する可能性をできるかぎりへらしたいというのもある。

今、こうなっている。 基本的には魔法をつかわず、pluggableで minimalistic というところで、現状のものであんま不満はないのだが、つかってるモジュールをちょっとかえるかも。具体的に

[ ぱっとみで気になったところをいくつか指摘してなおしてもらいました。コードは10文字ぐらいしかかいていない。 だいぶシンプルなので、TheSchwartz や Qudo よりはこっちのほうがすき

* 英語で commit log をかく * 日本語の pod を書かない(日本語の ja.pod とかが充実してると、ひいてしまう) * 英語で blog をかく * pull request とか

[ 要は、pkg-config libpng --cflags の結果をまんま $opt{INC} にいれてるから、-D がかえってきたときにしぬので、とりのぞうようにしたというおはなし。

``` use strict; use warnings; use autodie; sub { open my $fh, '<', '/dev/urandom'; sub {

``` #!/usr/bin/perl use strict; use warnings; use utf8; use Text::Xslate; my $tmpl = <<'...'; <tabl

List::MoreUtils::apply のドキュメントによれば ``` my @a = apply { $_ * 2 } @b; ``` は ``` for (my @a = @b) {

[ Log::Dispatch::File::Stamped みたいよしなにタイムスタンプがついてるファイル名でファイルをつくるの人です。 ``` use File::Stamped; my $f

[ このへんみておもったこと。 unserialize() 関数はオブジェクトの unserialize もできるのだが、5 以後では \_\_destruct() が導入されているので、その

* construct from reusable modules. * THIS IS GOOD. * no built-in TypeConstraints * no Role composi

``` GRANT SELECT ON *.* TO slave@localhost IDENTIFIED BY ''; ``` とかしておいて、つなぎにいけばいいということにした。

[ iTerm といえば Terminal.app がバギーだから遅いけど我慢してつかうものというイメージだったのだが、最近はよくなったらしいと [id:nekokak]( がいうのでためしてみてる

[ This is yet another DarkPAN manager. It is highly depended for cpanm. I don't think about relat

[ Python 系のイベントにでるのは久々ですね。昔は Python のイベントで登壇してたりもしていた私ですが、最近はすっかり「Perl のスパイだ!」と後ろ指をさされがちですね。 今回は P

[ hmm... This looks just a monkey patch project. It is very dirty, but works. This module does not

conditions precedent: * use daemontools & multilog Points: * make DB connection after fork * do n

[ just fucking do { } it. ``` use 5.10.1; my $year = 2010; my $month = 11; my $nendo = do {

use Data::Rmap! ``` use Data::Rmap ':all'; use HTML::Entities qw/encode_entities_numeric/; my $foo

> にしても、こちらのサイトでも言われていますが、なぜ半角カナ専用のUnicodeブロックがないのかと小一時間（ｒｙ [ [ ということで、 ``` sub InHankakuKatakan

Plack::Middleware::StackTrace displays last exception information since the code is: ``` my $tr

I'm using Smart::Args these days, but some people say "Smart::Args is too smart.". I suggest yet an

[ Teleport is awesome tool to share keyboard & mouse between two macs. The good points of Teleport

``` my $row = $db->insert($args); pre_insert: ($db, $args, $table_name) post_insert: ($db,

``` autocmd BufRead *.sql set filetype=mysql ``` Vim7 applies oracle sql syntax by default. But you

``` use Email::Sender::Simple qw/sendmail/; sendmail(@args); ``` is same as ``` use Email::Sender:

HTTP/1.1 においては、HEAD リクエストの場合には **Message Body を送信してはならない**ということにはなっているのですが、現実的には、Message Body をおくりかえ

I will use Net::SSL(in Crypt-SSLeay distribution) for Furl. ``` 17:41 tokuhirom: perl で ssl するときって

larry wall さん, obra さん, miyagawa さんという3人の豪華なメインスピーカー、東工大の綺麗で広い会場、そしてよい天気にめぐまれ、今年の YAPC も無事におわりましたね!

[ CPAN モジュールのアップロードは ShipIt をつかうと楽なことがしられていますが、CPAN にあげたくないモジュールなどのアップロード場所としては、リポジトリに github をつかって

* HEAD をよぶときは CURLOPT\_NOBODY をつけないとささる * CURLOPT\_HEADERFUNCTION はとても遅いのでできるだけ curl\_getinfo() をつかう

[ KyotoTycoon の Perl 用クライアントライブラリをだしました。 * straight forward * simple * less dependencies * stabili

[ ドコモ絵文字をテンプレにかいたら3キャリ分表示できるようにするためのライブラリ。とりあえず !emoji:1( による &#xXXXX; の2形式に対応している。3キャリで 3G ならちゃんとみ

[ Xslate + Email::Simple で MIME::Lite::TT::Japanese っぽいあるいは MoFedge::Mailer っぽいやつがほしいなーとおもったので、つくった

PHP5をPerl5からよべるということでためそうとしたが、うまくうごかなかった。 とりあえず aptitude install php5-cli php5-dev したのだが、コンパイルがとおらな

benchmark script is: result is: #### conclusion RPC::XML is pretty fast.

以下のように RPC::XML をつかうとよい。 Following code is XMLRPC server snippet on Plack. This code uses RPC::XML

テストが最新の RPC::XML でこける問題を修正して shipped. 問題は RPC-XML-Parser-XS からもってきたテストケースが xmlrpc spec 的に invalid

【追記 2010-09-27】 HTML::Tree にバグをみつけたので、パッチをおくりました、それがリリースされるまでの間は HTML::Tree 4.0 はつかわない方がいいです。 ---

[ まあこんなかんじで。

``` requires 'GIS::Distance::Lite'; requires 'HTML::MobileJp'; requires 'Geo::Coordinates::Converter

* [ * [ * [ こんなところか。

* bug fix(gfx, tokuhirom) * performance tuning(gfx) * PP support(makamaka) といったところがもろもろはいって 0.26 まで

[ IRC にポストするスクリプトを書く場合に、常駐させないようにつくると JOIN/PART メッセージがいちいち表示されてうざいという問題がよく知られており、これにたいする対策として、常駐プロセ

[ ``` my $c = MyApp->bootstrap(); print make_schema_at('MyApp::DB', {}, $c->config->{'DB'}); ``` み

Test::Valgrind is a perl wrapper for valgrind(1). T::V helps to find invalid memory operation. You

threads::shared uses magic. But so, it is not restore after Storable::thaw. ``` use strict; use war

[ Perl5 において有名な画像処理ライブラリといえば GraphicsMaick, ImageMagick, Imager, Imlib2, GD あたりだとおもうのだが、はたしてアバターのレ

perl5.13.4 以後では STATIC\_INLINE というマクロが定義されるようになっており、これをつかうと便利だと gfx がいっていたので最近つかっていたりする。 で、互換性のためによ

Params::Validate のつかいかたがまちがってて parameter の validation がきいてなかったんでなおしました。