Plaggerのソースってそうだとつくづく思う。 おいらは if (-e $lib && -d _) {こんな書き方しらんかったし。 これに限らずすげー勉強になるコードばっかし。 Plagger::Walkerとかも。 あの肝になる部分は弾さんのObject::Applyだけども、すごす。 てか、Obje…

Web Site Expert #08posted with amazlet on 06.09.25Web Site Expert 編集部 技術評論社 (2006/09/29)Amazon.co.jp で詳細を見るおもしろかったっす。

373 ls 44 cd C○sxxxx 43 svn status 31 cd project 31 cd 26 cd site_perl 24 clear 20 cd ../ 15 ls -la 14 pwd cd大杉。 これはzshの超強力補完を知る前の鯖の状態だからだなぁ。 今は、なるだけvi（vim）でパス指定して開くようにしてるです。 あと、多…

インスタンス作るの面倒なので package Dumpvalue::Lite; use strict; use warnings; use Dumpvalue;use vars qw(@EXPORT); @EXPORT = qw(Dumpvalue);our $VERSION = 0.01;sub Dumpvalue { my $dumpval = Dumpvalue->new; $dumpval->dumpValue(@_); }1;適当…

こんな感じでおさまりそう。 文字コードもこれでいい感じに。 package Geography::JapanesePrefectures::Walker; use strict; use warnings; use Carp; use Scalar::Util qw(blessed); use UNIVERSAL; use Encode; use List::MoreUtils qw/uniq firstval/; u…

TTではこんな感じで使うべし。 package Template::Plugin::JapanesePrefectures; use strict; use warnings; our $VERSION = 0.01;use Template::Plugin; use base qw(Template::Plugin); use Geography::JapanesePrefectures::Walker;sub new { my $class =…

今日のCPAN。（うそ package Sledge::Plugin::JapanesePrefectures; use strict; use warnings; use Geography::JapanesePrefectures; use List::MoreUtils qw/uniq firstval/; use Jcode;sub import { my $self = shift; my $pkg = caller; no strict 'refs…

なんかCPANにアップできるようなのをなんかつくりたかったの だからなんか適当につくってみたの。。。 いや、適当でもないいんだけど。 こういうの必要ないかなぁ。ないかなぁ。ないかなぁ。 package Class::DBI::Plugin::AccessionSearch; use strict; use …

http://d.hatena.ne.jp/fbis/20060902/1157202784 http://d.hatena.ne.jp/tokuhirom/20060910/1157858682 私の場合、前職がPerlでの開発だったのでPerlを触るようになりました。 私は、大学が法学部でプログラミングなんて会社に入るまでやったことなんて な…

Cなんて数年前に少し勉強して以来ほっとんど勉強してません。 それも、レベルの低いソースしかみてなかったから、（研修用のソース） はっきり言って役に立たんわけですわ。 なんかmemcachedのソース読んでてもあたふたな感じなわけで。そこで結城浩さんが『…

API作る必要が出てきたので作ってみた。 package Sledge::Plugin::JSONRPC; use strict; use warnings; use JSON::Syck;sub import { my $self = shift; my $pkg = caller; $pkg->register_hook(BEFORE_INIT => sub { my $self = shift; $self->{_body} = do…