Bonjour a tous,
Je fais un ping avec un test en fonction du resultat mais je ne print rien du ping et pourtat il m affiche qq chose ca vient d ou ????


Warning: time of day goes back, taking countermeasures.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl
use strict;
package sous_fonc_ping;
sub Fonc_Ping
{
        my ($Ping_Cmd,$Ping_Cible,$Adress_Ip,$Ping);
        ($Adress_Ip) =@_;
        $Ping_Cmd = "ping -c 2  ";
        $Ping_Cible ="$Adress_Ip";
        $Ping = `${Ping_Cmd} ${Ping_Cible}`;
        chomp($Ping);
        return $Ping;
}
1;
Merci de me dire si c est possible d eviter d voir une connerie qui s affiche !!!
Jules