Linux上でtcpdumpの出力をperlで処理したいと考えています

質問

Linux上でtcpdumpの出力をperlで処理したいと考えています。
下記のようにtcpdumpの標準出力をperlの標準入力で受け取ろうとしても
tcpdumpの処理が終わらないためパイプ(|)経由でperlにデータが渡ってきません。

[test.pl]
$|=1;
foreach(<>){
print "--- $_";
}
exit;

Linux上のコマンド

tcpdump -l | ./test.pl

これをteeに置き換えるとtcpdumpの出力はリアルタイムに表示されます。

tcpdump -l | tee a.log

質問：perlでteeを作ることはできますか？

回答No.1

superside0 · ベストアンサー

foreach(<>){
でなく
while(<>) {
でどうでしょう？

お礼

うまくいきました！
ありがとうございました。