[ HTML::ResolveLink をつかうと簡単ですね。 ``` #!/usr/bin/perl use strict; use warnings; use utf8; use HTML::

Test::TCP の中で exec 発行すれば、groonga だろうと KT だろうと memcached だろうと、サーバープロセスのテストは簡単にできるのであって、サーバーごとにモジュールにす

俺は普段こういう運用でやっているが、君はどうか。 社内の trac にドキュメントをかいたので、コピペしておく。git についてはカジュアルにつかってるだけなので、もっとこうしたほうがいいんじゃねえ

RDBMSレベルのtriggerはアプリケーションレベルのトリガーにくらべてもれもなく、安心感があってよいものですね。 しかし一方で、RDBMS レベルのtriggerは、deploy がむずかし

前にレポートしたやつ。Imager-0.79 でなおってた。 ``` - parse defines from the options returned by pkg-config --cflag

[ [ SAVEPOINT 関連は SQL 2003 できまってるし、DBI レベルではサポートしなてもいいよね!っていう話みたい。 ただし、DBIx::Connector をみると MSSQ

[ Active Record パターンでは Single Table Inheritance パターンがつかえないというのは誤りです。件の記事にかいてある Active Record だからー、っ

結局、がんばってそれの作法をおぼえても、それのブームがさった後にまったく役にたたない知識なので、そういうのを覚えるぐらいなら、ベーシックな技術の修得に時間をさくべきではないか、とおもった。

Data::Validator のコードの中にこんなのがあった。 ``` sub with { my($self, @roles) = @_; foreach my $role(@r

[ Slide is here.

PyJUG のイベントのパネルによばれたので話してきた。事前にかんがえておいたメモを以下にコピペしておきますね。 ``` いけてるところ - indent acme - pep - method の

code ``` #!/usr/bin/perl use strict; use warnings; use utf8; use Benchmark ':all'; { packa

``` package Parent; use parent qw/Class::Accessor::Fast/; ``` な Parent クラスがある場合に、これを継承したクラス Child を

``` my $sponge = DBI−>connect("dbi:Sponge:","","",{ RaiseError => 1 }); my $sth =

[ まあ、ほとんどつかわないけどたまにほしくなるので、というか今ほしかったのでパッチをかいておくった。

O/R Mapper とかって結局つくってるアプリの正確とか、ユーザーの好みによって必要な機能とかがちがうわけです。あるいはつかってる DB サーバーによって、とか。 まあ、そういうことがあるので、

``` % 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 っぽいやつがほしいなーとおもったので、つくった