ミリ秒を求める Time::HiRes::gettimeofdayを使う。 use Time::HiRes; $now = Time::HiRes::time; ($seconds, $microseconds) = Time::HiRes::gettimeofday; UNIX_TIMESTAMPがミリ秒単位でわかる。 参考 ミリ秒を求める Script Source Sample for Perl wanta…

ハマりました。。ご注意下さい。 GETに変えれば大丈夫。 また、docomo, SoftbankはPOSTでも大丈夫。 参考 モバイルMixiアプリ Au機種でFLASHインタラクティブ再生が表示されない件 - 残業ゼロのWEB屋の戯言

Perlで定数を使う方法はいくつかある。 よく知られているのは constant, ReadOnlyだが、Data::Lockというものは変数を一時的に書き込み不可にするそうな。 use Data::Lock qw(dlock); dlock my $ROWS = 10 ; dlock my @DATA = (10, 20, 30); print "row is $…

画像合成をやる必要があって、Image::Magickでgif合成してみた。Image::Magickの使い方はこんな感じ。 use Image::Magick; my $magick = new Image::Magick(); $magick->Read($file); # 画像ファイル読み込み # 指定した座標に重ね合わせる $magick->Composi…

前掲のようにCache::FastMmapを使い出して、しばらく経った頃に急にエラーが出ることがあった。 ... failed: File exists at /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/Cache/FastMmap.pm line 629.%0ACompilation failed in require at /pat…

FastCGIの全プロセスでデータを共有したくて、Cache::FastMmapを使ってみた。共有のshare fileを使う。 package MyApp::API::Cache; use Cache::FastMmap; my $fastMmap = Cache::FastMmap->new( share_file => '/tmp/sharefile-myapp-fastmmap', ); みたい…

Ubuntu Japanese Teamの公式HPで入手できる仮想マシンのバージョンは2月13日現在、8.04 LTS(Hardy Heron)だが、最新のローカライズ版は10.10(Maverick Meerkat)。8.04を動かす場合は、単に落としてきた仮想マシンをVMware Playerで開けばよい。10.10を動かす…

先月初めてPCを自作した。 3連休の初日に思い立って、本を買い、2日目にアキバに行ってパーツを選び、3日目に届いたパーツを組み立て完成という、スピード自作だった。 もっとパーツ選びとか時間かかるかな〜と思ったのだが、BTO(Build To Order)を利用して…