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/)
こんなかんじでいいんじゃないでしょうか。
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/)