ミリ秒を求める 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', ); みたい…