<br>#!/usr/bin/perl <br>open FD,&quot;tcpdump -i eth0|&quot;;<br>while(&lt;FD&gt;){<br>&nbsp;&nbsp;&nbsp; print $_;<br>}<br><br><div class="gmail_quote">2008/6/18 gary.jsz &lt;<a href="mailto:gary.jsz@gmail.com">gary.jsz@gmail.com</a>&gt;:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">





<div style="margin: 10px; font-size: 10pt; font-family: verdana;">
<div><font size="2" color="#000080" face="Verdana">系统：linux&nbsp;&nbsp; 
perl版本：5.8</font></div>
<div>目的：</div>
<div>想使用perl来实时抓取tcpdump数据，并统计10分钟的流量。</div>
<div>&nbsp;</div>
<div>我的代码片段如下：</div>
<div>
<div><font color="#3366ff">#!/usr/bin/perl&nbsp;-w</font></div>
<div><font color="#3366ff"></font>&nbsp;</div>
<div><font color="#3366ff">#got system time now</font></div>
<div><font color="#3366ff">my&nbsp;$time_now;</font></div>
<div>
<div><font color="#3366ff">my&nbsp;$time_temp&nbsp;=&nbsp;`date`;</font></div>
<div><font color="#3366ff">if&nbsp;($time_temp&nbsp;=~&nbsp;/(\d\d):(\d\d):(\d\d)/){</font></div>
<div><font color="#3366ff">&nbsp;&nbsp;$time_now&nbsp;=&nbsp;($1*60*60)&nbsp;+&nbsp;($2*60)&nbsp;+&nbsp;$3;</font></div>
<div><font color="#3366ff">}</font></div>
<div><font color="#3366ff"></font>&nbsp;</div>
<div><font color="#3366ff">#got tcpdump data</font></div></div>
<div><font color="#3366ff">chomp(my&nbsp;@data&nbsp;=&nbsp;`tcpdump&nbsp;-i&nbsp;eth0&nbsp;-nnn`);</font></div>
<div>
<div><font color="#3366ff"></font></div><font color="#3366ff">print&nbsp;$time_now;</font></div>
<div><font color="#3366ff"></font></div>
<div><font color="#3366ff">foreach&nbsp;my&nbsp;$data(@data){</font></div>
<div><font color="#3366ff">&nbsp;&nbsp;print&nbsp;$data;</font></div>
<div><font color="#3366ff">}</font></div></div>
<div>&nbsp;</div>
<div><font size="2" color="#000080" face="Verdana">遇到的问题：</font></div>
<div><font color="#000080">运行程序之后，无法正确打印 $data ，只停留在启动tcpdump时两行；</font></div>
<div><font size="2" color="#000080" face="Verdana"></font>&nbsp;</div><font size="2" color="#000080" face="Verdana">
<hr style="width: 100px;" size="1" align="left" color="#b5c4df">
</font>
<div><font size="2" color="#c0c0c0" face="Verdana">
<div>
<div><font color="#000000">Gary.jsz</font></div></div></font></div></div>
<br>_______________________________________________<br>
China-pm mailing list<br>
<a href="mailto:China-pm@pm.org">China-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><br></blockquote></div><br><br clear="all"><br><br>