Net::Pcap 安装

时间：2008-05-17 来源：lvDbing

第一步：下载WinPcap WinPcap auto-installer (driver +DLLs) 。 (http://www.winpcap.org/install/) 第二步：安装Net::Pcap模块，当然你也可以选择安装Net::PcapUtils。

C:\Perl\bin>ppm-shell
ppm 4.01
Copyright (C) 2007 ActiveState Software Inc. All rights reserved.
ppm>install http://www.bribes.org/perl/ppm/Net-Pcap.ppd
ppm>install http://www.bribes.org/perl/ppm/Net-PcapUtils.ppd

第三步：测试安装

#!/usr/bin/perl -w

use strict;
use Net::PcapUtils;
$,=' ';

my $error = Net::PcapUtils::loop(\&print_packet,
                                 NUMPACKETS => 10,
                                 );
die $error if $error;

sub print_packet {
  my($user_data, $header, $packet) = @_;
  my $len = length $packet;
  my $i=0;
  do {
    my $lg = substr $packet, $i, 16;
    printf "%.8X : ", $i;
    $i+=16;
    print unpack ('H2'x16, $lg), ' 'x(16-length $lg);
    $lg =~ s/[\x00-\x1F\xFF]/./g;
    print " $lg\n";
  } until $i>=$len;
  print "\n";
}