第一個接收數據包的Perl大小

Question

我想知道如何使用Perl從服務器獲取第一個接收數據包的大小。我從NET :: PCAP的不同示例中下載了一些簡單的代碼。但我不知道如何從中獲得第一個數據包的大小。

任何幫助，或良好的聯繫，非常感謝。

謝謝，

Answer 1

是這樣的？ （只是修改Net::PCAP頁面上的梗概提供的示例。）

use Net::Pcap; 

my $err = ''; 
my $size = 0; 
my $dev = pcap_lookupdev(\$err); # find a device 
my $pcap = pcap_open_live($dev, 1024, 1, 0, \$err); 
my $loop_func = sub { my($user_data, $header, $packet) = @_; 
         $size = $header->{len}; }; 
pcap_loop($pcap, 1, $loop_func, "just for the demo"); 
pcap_close($pcap); 
print $size," bytes\n";