我使用Net::Pcap
module使用此过滤器捕获数据包:
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数据包组合成一个数据包并提取其标头?
答案 0 :(得分:0)
尝试使用CPAN中的Sniffer :: HTTP