2009-02-01から1ヶ月間の記事一覧

なんと

同じ日に生まれた人にあった。テンパの原因は生まれた日にあったのかも。

メモ

http://d.hatena.ne.jp/harupiyo/20090226 use Data::Dumper::Names; use Data::Dumper; use Benchmark qw(:all); my $hoge = { hgoe => 'hoge' }; cmpthese( -5 , { 'Data::Dumper' => sub { Data::Dumper::Dumper($hoge); }, 'Data::Dumper::Names' => sub…

花粉の攻撃

クリティカルヒット!

麻婆豆腐

食べて腹痛がつづいてます。ありがとうございました。

テレビとかえらい人とか

体調が悪い時は悪いんだよ。非難し過ぎだと思う。彼には無理させすぎたとか、責任感が強い人だから欠席できなかったとか、薬をもられたとか、色々助ける方法とかあるだろ。言いわけが得意なんだから、こういう時に他の人の為につかってやればいいのに。保身…

Sledgeを使いそうなので、ちょっとソースみてみた

Sledge::Dispatcher,Sledge::Pages::Base がすべてだった。 Sledge::Engineは、Sledge::Dispatcherを全く別ものにして置き換えてた。それがすべてだった。いまさら、大体把握した。そんな朝。Dispatcherにpathinfo()組み込んだらどうかと思って見ただけなん…

バグ取り

http://headlines.yahoo.co.jp/hl?a=20090213-00000033-zdn_n-sci「バグ取り」って違和感があるな。「手強いバグ」って、「バグ取り」しても、全部腐ってるから、取って行くと何も残らないイメージ。プログラミングを知らない人は「バグ」は取るものって、本…

聞いてない

政治家の人がみんな使うぐらいだから、最強だな。今度使おう。

1size 1M未満か

キャッシュ失敗 #!/usr/bin/perl use Cache::Memcached::Fast; my $cache = Cache::Memcached::Fast->new({servers => [ '127.0.0.1:12345']}); my $x = 'a' x 1024 x 1024; my $time = time; for(1..1000){ my $key = $time . $_; $cache->set( $key , $x )…

2/14日にたこ焼きニュービーソンをします

2/14(バレンタインデーーーーに変更しました)プログラムしたり、ボードゲームしたり、ゲーム攻略したり、たこ焼きを食べる会合です。 場所 川崎市宮前区あたり。電車とバスでのアクセス 参加条件 ご希望の方は、なんらかの方法でご連絡ください。 美人 tomyh…

最近の一番残念なこと

4Uのサイトに、動く画像アフィリエイトがついたこと。気がちってみれません。

Test::Base利用時に、__DATA__の中身の量が多い場合、ファイル分割してわかりやすくする

t/hoge.t use Test::Base qw/no_plan/; my $DIR = 't/data'; spec_string( &load_data() ); run { my $block = shift; # 貴方のテストをここへ。テスト名を入れるのを忘れずにね。 is( $block->before , $block->after , $block->name ); }; sub load_data {…

RequestHeaderでユーザ側の環境変数がとれないので

とても困った。ここを参考にしてそのまま対応した。ださいけど。 とれない RequestHeader Set X-Request-URI %{REQUEST_URI}e とれる RewriteCond %{REQUEST_URI} (.*) RewriteRule .* - [E=X_REQUEST_URI:%1] RequestHeader Set X-Request-URI %{X_REQUEST_…