Kazuho@Cybozu Labs

　先ほどリリースした Filter::SQL 0.09 から、環境変数 FILTER_SQL_DBI を使用して接続先の DBI URI を設定することができるようになりました。この点を利用すれば、例えば、単純な SELECT を行うワンライナーは perl を利用して以下のように書くことができます。

% FILTER_SQL_DBI='dbi:mysql:test;user=****' perl -MFilter::SQL -le 'print $_->[0] for SELECT id FROM tbl;'
1
3
8
...

　もちろん単純な SELECT を行うケースでは、RDBMS のコマンドラインクライアントを使えばいいのですが、perl のループ内でさらに SELECT を発行したり、あるいは保守目的で UPDATE を行ったりする場合は便利かなと思います。あと、ついでに mysql_insert_id も取得できるようにしました。以下のような感じで書くことが可能です。

use Filter::SQL qw(:mysql);
...
INSERT INTO tbl (str) VALUES ('abc');;
print mysql_insert_id(), "\n";

　Filter::SQL 0.09 は、まだリリースしたてのほやほやなので、CPAN からはダウンロードできないかもしれません。最新のソースコードは、CodeRepos の lang/perl/Filter-SQL 以下にあるので、興味のある方はこちらをご覧ください。