各テーブルにレコードが何件入ってるか調べる 

#!/usr/bin/perl
use DBI;

my $connect_info = [
    'dbi:mysql:dbhost=foo;dbname=bar',
    'root',
];

my $dbh = DBI->connect(@{$connect_info});
my $tables = $dbh->table_info->fetchall_hashref('TABLE_NAME');
for (keys %{$tables}) {
    my $dbname = $tables->{$_}->{'TABLE_SCHEM'};
    my $row = $dbh->selectrow_hashref("select count(*) as count from $_");
    warn "$dbname: $_ : $row->{count}";
}

なんかこんな感じっぽい。

おは

なんか変な夢を見たけどあんま覚えてない。Moooseにうなされる夢だったような気もするし、核兵器が数カ国の共同管理になっていて、核兵器の前で衛兵が交代するシーンだった気もする。次は火星だった気がする。→腹へってきた。午後は場所を移そう。→すげー混んでてうるさくてipodも持ってこなかったのでちょっと大変。だけどあと20分で2時間なのでがんばる。結構仕事も進んでるし。→おし。2時間クリア。→月曜からちゃんと進捗があるのは昨日コードを触ってたからだろうなぁ。予習重要。→仕留めた！と思った蚊が一瞬にして視界から消えるのはなんでなんだろう。→長い休憩を終えて最終セットに入るかどうしようか。→フレッシュネスバーガーに鶴がついてきてびっくりした！

Origami Crane

typo発見

0 座標位置を指定する毛筆の方法は、→0 座標位置を指定するもう一つの方法は、
http://code.google.com/intl/ja/apis/chart/
ということでGoogle::Chart::Gridなど実装してみる。→うむ。こんな感じか。

う。0座標位置はchgじゃなくてchmで指定するべきだったか。帰って続きするか。→うをー。なんかすごくめんどくさそうな予感。ArrayRef[markerdata]とかになる悪寒。

subtype 'Google::Chart::Color::Data'
    => as 'Str'
    => where { /^[a-f0-9]{6}/i }
;

has 'color' => (
    is => 'rw',
    isa => 'Google::Chart::Color::Data',
    required => 1,
    default => '000000',
);

これが

t/02_marker....1/10 Attribute (color) does not pass the type constraint because: Validation failed for 'Google::Chart::Color::Data' failed with value 0 at (eval 89) line 48
        Google::Chart::Marker::Item::new('Google::Chart::Marker::Item') called at /home/danjou/work/share/lang/perl/Google-Chart/trunk/lib/Google/Chart/Marker.pm line 25
        Google::Chart::Marker::__ANON__('Google::Chart::Marker=HASH(0x8f5cdf0)') called at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Class/MOP/Attribute.pm line 239
        Class::MOP::Attribute::default('Moose::Meta::Attribute=HASH(0x904690c)', 'Google::Chart::Marker=HASH(0x8f5cdf0)') called at (eval 82) line 19
        Google::Chart::Marker::new('Google::Chart::Marker') called at t/02_marker.t line 10

こうなってなんやこれー！と思っていろいろやってたんだけど、defaultを'aaaaaa'とか（とにかくゼロではない何か）に変えたらとおった...→ひどす。なんでじゃろー。→その後、id:lestrratによりこうやって解決。一時しのぎではある。

has 'color' => (
    is => 'rw',
    isa => 'Google::Chart::Color::Data',
    required => 1,
    default => sub {'000000'},
);

イザ！をちょっと見直した

Sorry
該当するコンテンツがございません
サイトのナビゲーションブロックへ移動する
エラー内容
以下のいずれかの理由により、該当するコンテンツを表示することができませんでした。

  • コンテンツの公開が終了した。
  • コンテンツが削除された。
  • 指定したURLが間違っている。
  • その他、やむをえない事情があった。

ご不便をお掛けして申し訳ございません。
何卒よろしくお願いいたします。
イザ！

http://www.iza.ne.jp/news/newsarticle/107228

なかなかいい404。