[Perl]AndroidでもPerlが動く・・・のか？

http://journal.mycom.co.jp/news/2009/08/25/061/index.html

へえ〜

[Perl]タイムアウト処理を簡単に実装できるTime::Out

Time::Outというモジュールがあります。コイツはタイムアウト処理を実装するのに非常に重宝します。

以下のような、えらく時間のかかるロジックがあったとします。

sub slow_logic {
    sleep int( rand( 40 ) ) + 10;
    'OK';
}

で、例えばこのロジックを実行したときに、30秒以内に処理が終わらなければ強制的処理を終わらせundefを返すようにしたい、という場合は

use Data::Dumper;
use Time::Out qw( timeout );
my $logic = timeout 30 => \&slow_logic;
print Dumper $logic;

とします。
実行結果は下記の通り。

# time perl ./hoge.pl 
$VAR1 = undef;

real    0m30.142s
user    0m0.130s
sys     0m0.010s

# time perl ./hoge.pl 
$VAR1 = 'OK';

real    0m21.153s
user    0m0.130s
sys     0m0.020s

[Perl]List-MoreUtils-0.24はPerl5.8.8以前には入らない

7/27にList-MoreUtils-0.24がリリースされました。
しかしPerl5.8.8だと、testコケます。
Reports for List-MoreUtils

Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/0_pod.t .............. ok   
t/0_pod_coverage.t ..... skipped: Test::Pod::Coverage not installed
t/List-MoreUtils-pp.t .. ok         
t/List-MoreUtils.t ..... Use of uninitialized value in numeric eq (==) at t/List-MoreUtils.t line 45.
Use of uninitialized value in numeric eq (==) at t/List-MoreUtils.t line 45.
Use of uninitialized value in numeric eq (==) at t/List-MoreUtils.t line 45.
t/List-MoreUtils.t ..... Failed 2173/2173 subtests 

Test Summary Report
-------------------
t/List-MoreUtils.t   (Wstat: 11 Tests: 0 Failed: 0)
  Non-zero wait status: 11
  Parse errors: Bad plan.  You planned 2173 tests but ran 0.
Files=4, Tests=2164,  9 wallclock secs ( 2.58 usr  0.25 sys +  5.56 cusr  0.54 csys =  8.93 CPU)
Result: FAIL
Failed 1/4 test programs. 0/2164 subtests failed.

今のところPerl5.8.8では、0.22を使うしかなさそうです。
ちなみにMooseもこのモジュール使ってます。なので、Moose使うときには予めList-MoreUtils-0.22入れてからMooseを入れないとずっこけます。

2009-09-14 追記
現在、0.24は無かったことになっているようです。
その代わりに Developer Release として0.25_02がリリース済みです。こちらはPerl5.8.8でもテストが通る様ですが、メモリリークしてたりするようなので、もう少々0.22に頑張ってもらうことになりそうです。

[電波]Bookmarklet「水も汁るいい男」と「穴口さん」

やったもん勝ちなネタ。
body書き換え系のブックマークレットです。

水も汁るいい男（みずもしるるいいおとこ）
水⇔汁変換。
ブックマークして、この辺に行ってから、水も汁るいい男を実行すると、いろんなものを汁だくにできます＞＜

穴口さん（あなぐちさん）
穴⇔口変換。
水も汁るいい男同様、この辺のページでつかうと、ヤラシイ感じになります