値をごにょりたくなってきた

#!/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 = $tabl…

@databases = DBI->data_sources("mysql", {"host" => $host, "port" => $port, "user" => $user, password => $pass}); へー。

コーヒー失敗。なんかくさい。→とりあえず昨日作ろうと思って手を付けかけたやつを作り始める。→次のプロダクトがなんか決まった。つうかいろいろ作りかけの連中はどうしようかなぁ。jwatch.jpはがーっと作ってMA4に応募くらいはしたいなぁ。