Re: real-time packet capture


No such thing as a small change
	PerlMonks

Re: real-time packet capture

by tstock (Curate)

on Apr 12, 2003 at 19:55 UTC ( [id://250077]=note: print w/replies, xml )

Need Help??

in reply to real-time packet capture

Maybe this will give you some ideas:

#! /usr/bin/perl

my $tcpdump = '/usr/sbin/tcpdump -n'; # path and options
my $timeout = 5; # time to listen
my $fileout = 'out.tcpdump';
open(OUT, "> $fileout") || die $!;
open(CMD, "$tcpdump |") || die $!;

eval 
{
    local $SIG{ALRM}= sub { die('done') };
    alarm( $timeout );

    while (<CMD>)
    {
    my $line = $_;
    print OUT $line;
    }

    alarm(0);
};

print $@ if $@;
close OUT || die $!;
[download]

Tiago