一个perl经典应用

一次在perl的群里聊天，有个人提了个类似的问题，今天在邮件里面又看到了

 

系统：linux   perl版本：5.8

目的：

想使用perl来实时抓取tcpdump数据，并统计10分钟的流量。

 

我的代码片段如下：

#!/usr/bin/perl -w

 

#got system time now

my $time_now;

my $time_temp = `date`;

if ($time_temp =~ /(\d\d):(\d\d):(\d\d)/){

  $time_now = ($1*60*60) + ($2*60) + $3;

}

 

#got tcpdump data

chomp(my @data = `tcpdump -i eth0 -nnn`);

print $time_now;

foreach my $data(@data){

  print $data;

}

 

遇到的问题：

运行程序之后，无法正确打印 $data ，只停留在启动tcpdump时两行；

 

 

miFor 

#!/usr/bin/perl
open FD,"tcpdump -i eth0|";
while(){
    print $_;
}