I'm tried, to make a little sniffer with Net::RawIP.
I'v got a problem:
the bset function, make a "out of memory" after some cicle.
#!/usr/bin/perl
$|=1;
use Net::RawIP qw(:pcap);
$a=new Net::RawIP;
$b=new Net::RawIP;
$filtro='ip proto \\tcp';
$size=1500;
$tout=60;
$pcap=$a->pcapinit('eth0',$filtro,$size,$tout);
$offset=linkoffset($pcap);
undef $ipc;
do {
undef $ipc;
$ipc=&next($pcap,$temp);
$tmc=timem();
if ($ipc) {
print "catturato: $tmc\n";
$b->bset(substr($ipc,$offset));
#@syn=$b->get({tcp=>['syn']});
#if($syn[0]==0){
# print "SYN\n";
#}
}
}while(1);
if i comment the "bset" i hav'nt the problem.
Where is the problem ??
Thanks
Walter
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
