- or download this
$dev = Net::Pcap::lookupdev(\$err)
- or download this
use Net::Pcap;
use strict;
...
die 'Unable to determine network device for monitoring - ', $err;
}
- or download this
Net::Pcap::lookupnet($dev, \$net, \$mask, \$err)
- or download this
my ($address, $netmask, $err);
if (Net::Pcap::lookupnet($dev, \$address, \$netmask, \$err)) {
...
}
print STDOUT "$dev: addr/mask -> $addr/$mask\n";
- or download this
$object = Net::Pcap::open_live($dev, $snaplen, $promisc, $to_ms, \$err
+)
- or download this
Net::Pcap::loop($object, $count, \&callback_function, $user_data)
- or download this
sub callback_function {
my ($user_data, $header, $packet) = @_;
...
...
}
- or download this
Net::Pcap::compile($object, \$filter_compiled, $filter_string, $optimi
+se, $netmask)
- or download this
Net::Pcap::setfilter($object, $filter_compiled);
- or download this
Net::Pcap::close($object)
- or download this
use Net::Pcap;
use NetPacket::Ethernet;
...
$ip->{'dest_ip'}, ":", $tcp->{'dest_port'}, "\n";
}