前夜祭所感 - Lazy Programmer :-p
会社を早く抜けれるのでじゃなくて、Yokohama.pm皆勤賞を目指してるので参加したのでその所感 ちなみにタイトルはここからパクった。書記にこの方を雇いたい。ちなみに秘書は、オッサンじゃなくて、かわいい子を雇いたい。 acotieさん「AnyEvent的ななにか(仮)」 ミニスカートが似合っていてとてもよかった spiritlooseさん「Schenker - DSL for quickly creating web applications in Perl」 パクってる発言が多かった kawanetさん「YAPC::Europe 2009（ポルトガル）参加報告」 海外の人となんちゃらっていってたので、後でシュウマイを海外の人にこっそりオススメしたりした。 あと海外にいきたい。 k-z-hさん「PerlのWAF今昔」 Sledgeの時代の位置がおかしいきがした amachangさん「みん
Yokohama.pm#4 - Lazy Programmer :-p
http://yokohama.pm.org/2009/03/yokohamapm-4-1.html 自分が思ったメモ。 QudoｘSkinny Qudo = DBI的なドライバーを変更できるJobQueueシステム。 良いんじゃないかと思った。 次世代？DIコンテナ Bread::Boardの今後 DIっようわからん。なので、ファクトリーで依存取れるし、それで良いいのではと思った。 優しいWAFの作り方(仮) １０年後にperl7でリリース予定らしい。 CAPとBASEとEventually Consistent slaveとmasterはずれるねぇ。そして困るんですよねぇ。 特に、slave/master構成 + db dataキャッシュは相性が非常に悪い。さらに、ずれだすのは、アクセスが増えたり、データ量が増えた時で、当初は問題にならなくて、急にガッツリくるのが痛い。 解決方法として
Test::Base利用時に、__DATA__の中身の量が多い場合、ファイル分割してわかりやすくする - Lazy Programmer :-p
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 { opendir(DIR, $DIR) or die $@; my @list = readdir(DIR); closedir(DIR); my $data = ''; for my $file ( @list ) { next unless $file =~ /\.dat$/; my $dat = $DIR .'/'. $file; my $name = "\e[33m
DateTime ~ 'local' vs DateTime::TimeZone->new(name => 'local') - Lazy Programmer :-p
同じタイムゾーンの場合 'local' って指定するんじゃなくて、$timezoneのオブジェクトを使い回した方がはやい。 #!/usr/bin/perl use strict; use warnings; use Benchmark qw(:all); use DateTime; use DateTime::TimeZone; my $timezone = DateTime::TimeZone->new(name => 'local'); cmpthese( -5 , { label => sub { my $dt = DateTime->now( time_zone => 'local' ); }, obj => sub { my $dt = DateTime->now( time_zone => DateTime::TimeZone->new(name => 'local') );
今日のNewbiethon成果(CatalytApp::CLI) - Lazy Programmer :-p
全然汎用的じゃないけど、Catalystの依存をできるだけ避けて、CLI補助モジュール作った。 config , schemaが使えるだけなんだけど。 Catalyst-Plugin-ConfigLoader-Multi を使ってる方なら、少しコードを変更すれば使えると思うよ！ 今日はコーディングより、考える作業が多かった>_< package Nirvana::CLI; use strict; use warnings; use base qw/Class::Accessor/; use Catalyst::Utils; use Config::Any; use DirHandle; use Nirvana::Schema; use FindBin; use File::Spec; __PACKAGE__->mk_accessors(qw/config schema/); sub new
Term::ANSIColor - Lazy Programmer :-p
id:sumi_zumiさんのをみて試そうとしたら、Ratingに良いサンプルがあったので、それを試す。 奇麗だ。 #!/usr/bin/perl use Term::ANSIColor; @colors = qw(black red yellow green cyan blue magenta); foreach $fg (@colors) { print color("bold $fg") . ' Hello! ' . color('reset'); foreach $bg (@colors) { $bg eq $fg ? print color("white on_$bg") : print color("$fg on_$bg"); print ' Hello! ' . color('reset'); } print "\n"; }
CSVとかTAB区切りファイルとかから、アレイハッシュを作るチップ - Lazy Programmer :-p
一行目がキーで、それ以降がデータのファイルを想定！ このコードがかっこいい。id:hideden に教えてもらった。 Thanks! @row{ @fields } = split("\t" , $line ); サンプル use strict; use warnings; use Data::Dumper; my $tab = "\t"; my $DATA =<<__TAB__; id${tab}message${tab}status 1${tab}test1${tab}disable 2${tab}test2${tab}enable 3${tab}test3${tab}disable __TAB__ my $is_first_line = 1; my @fields = (); my @data = split("\n" , $DATA ); my @nice_format_data
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
