内部も外部とのI/Oも全部UTF-8にしてるので、C::P::Charsets::Japaneseをやめて、C::P::Unicodeを使うように変更。あと、ログはプロンプトに流れるのを追ってるだけだったけど、どうしても不便なので、C::P::Log::Dispatchでファイルにも書き出すように。他…

> dir /b /a-d | grep -P -v "(ppd|gz)$"

ページャはController内でData::Pageを使って自前で実装していたのだけど、DBIx::Class::ResultSet::Data::Pagesetを使って手を抜くように変更。自分でコード書いてもたいした手間にはならないのだけど、やっぱり面倒だし。勝手にやってくれたほうが気楽よね…

まだ読んでもないのだけど、あたるかどうかわからない予言を一つ。次の本は青いよ。黒かもしれないけど、青のほうがいいなぁ。青といっても他のJコレみたいな青じゃなくて、プログラミングPerlみないな青。

テーブルからランダムに取り出すためのSQL文。 SELECT id FROM tbl ORDER BY RANDOM() LIMIT 10; これはSQLiteでの場合なので、他のRDBMSだと違うのかもしれないけど。

DBICでランダムに10件取り出す。 my $rs = $schema->resultset('tbl')->search( undef, { order_by => 'RANDOM()', rows => 10, } ); CatalystのControllerで使うときはこう。MyApp::Model::DBIC::tblってクラスを仮定してる。 my $rs = $c->model('DBIC::tb…

ので、43000件ほどUPDATEを発行する羽目に。まあ、スクリプトも修正したし、これから追加する分は問題ないはず。 UPDATE table SET post = ? WHERE id = ?

via 自分の全FollowingをLast Update日付毎にソートするPerl Script - smokeymonkey＠ついったー部 - はてなグループ::ついったー部 これを見て、自分でも書いてみた。そのまま書いてもアレなので、Web::Scraperでスクレイピングするのと違って、私のはAPIを…