HostLatencySniffer

#!/usr/bin/perl -w

###Script pour connaître la latence moyenne et whois d'une connexion distante ou(et) local###

use strict;

if (!$ARGV[0]) {
    print "Usage:programme <host>\n";
    exit;
}

my $result = $ARGV[0];#on met l'argument passé au programme dans #result

system ("./resolve.pl '$result'> '$result'");
open(FD,"$result") || die ("Erreur d'ouverture de file");
while(<FD>)
{
    if($_=~ /[0-9]/g){
        system ("whois $_");
    }
    last;
}
close FD;

my $pid;#nouveau processus

$pid=fork();#processus mode //
if($pid==0){

#processus fils
    system ("/usr/bin/tshark -i eth1 -f 'tcp port 80' -a duration:5 -T fields -E separator=/s -e ip.src -e ip.dst -e frame.time_delta >> '$result'");
    open(FD,"$result") || die ("Erreur d'ouverture de file");
    while(<FD>)
    {
        print"$_";
    }
    close FD;
    exit 0;
}
#processus parent
system ("/usr/local/bin/http_ping -count 2 'http://$result'");
exit 0;