perl - 最初に受信したパケットの Perl サイズ

Question

Perl を使用して、サーバーから最初に受信するパケットのサイズを取得するにはどうすればよいでしょうか。NET::PCAP のさまざまな例からダウンロードした簡単なコードがあります。しかし、最初のパケットのサイズを取得する方法がわかりません。

どんな助け、または良いリンクも大歓迎です。

ありがとう、

Answer 1

このようなもの？( Net::PCAPページの Synopsis の例を変更しただけです。)

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";