プロトタイプと無名サブルーチン

ちゃんとしようと思って、ラクダ本「6.4 プロトタイプ」を見てみた。
やはり強力なのはid:fbisさんに教えていただいた無名サブルーチンみたい。
ちょっと業務で非同期に動かしたい処理があったので、応用してみた。

sub async(&@) {
        my $async = shift;

        unless (my $pid = fork()) {
                # 子プロセスは裏で指定された処理を行う
                eval {&$async};

                if ($@) {
                        die $@;
                }
                exit(0);
        }
}

常駐プロセスではないのでゾンビとかは無考慮。

＃最近、Perlばっかしだ。