Perl 如何从Net:：Pcap重新组装HTTP数据包？

我正在使用此筛选器捕获数据包：

dst $my_host and dst port 80

在Net:：Pcap事件循环中，我使用了一个回调函数：

Net::Pcap::pcap_loop($pcap_t, -1, \my_callback, '')

其中

my_callback

如下所示：

my_callback {
    my ($user_data, $header, $packet) = @_;
    #   Strip ethernet IP and TCP
    my $ether_data = NetPacket::Ethernet::strip($packet);
    my $ip         = NetPacket::IP->decode($ether_data);
    my $tcp        = NetPacket::TCP->decode($ip->{'data'});
}

---

如何将HTTP数据包组合成一个数据包并提取其标头？

尝试使用CPAN中的Sniffer:：HTTP

好吧，如果您正在读取以太网帧，您将必须拥有重新组装代码-要么是您编写的，要么是其他人编写的。好的，您可以帮助我如何解析HTTP标头和正文吗？