multitail 的なやつを perl で実装する

こんなかんじでいいんじゃないでしょうか。

use strict;
use warnings;
use autodie ':all';

$|++;

waitpid $_, 0 for map { fork || do { exec $_ } } ( map { "ssh $_ 'tail -F /service/webapp-*/log/main/current'" } qw/ap1 ap2/)

Published: 2011-05-30(Mon) 06:40