# Instanciate object, will start capturing from network
my $dump = Net::Packet::Dump->new(
filter => 'tcp',
noStore => 1,
);
while (1) {
if (my $frame = $dump->next) {
do_stuff($frame);
}
}
####
bless(Net::Packet::netpacket_pcap_fp($self->_pcapd), 'IO::File')
##
##
FILE * netpacket_pcap_fp(pcap_t *pd){
if (pd == NULL) return(0);
else return(pd->sf.rfile);
}
##
##
'_pcapd' => pcap_tPtr=SCALAR(0x896dde8)
-> 144211632
##
##
struct pcap_sf {
FILE *rfile;
...
};
...
struct pcap {
...
struct pcap_sf sf;
...
};