つい最近iPod touchをもらったので活用すべく簡単なスクリプトを書いてみました。 #!/usr/bin/env perl use strict; use warnings; use Mac::iTunes; use File::Find::Rule; use Path::Class; use Cwd; use Perl6::Say; our $itunes; main(); sub main { my …

http://alpha.mixi.co.jp/blog/?cat=19 Level2分散でJoinができないので、全員の声用DBを用意。 みんなの声は数日で消すためデータ量は問題にはならない Writeの負荷が高くなるのを防ぐために、Q4MでQueueingしてから、一定間隔でMasterに書き込み 少しずつ…