Probleme ping sous perl

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:

---

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

Pourquoi ne pas utiliser Net::Ping ?

Code:

---

1 2 3 4 5

use Net::Ping;   $p = Net::Ping->new(); print "$host is alive.\n" if $p->ping($host); $p->close();

---

Tout bonnement parceque je ne connaissait mais merci je vais tester !!
A pluche jules

Petit tag résolu si c'est bon.

@++

Sinon, de façon générale, quand on utilise des commandes système, plutot que des modules équivalents, il faut savoir qu'elles ont deux sorties :

• - la sortie standard qui reçoit l'affichage "ordinaire" de la commande, et qui est généralement récupérée par nos scripts.
  - la sortie d'erreur, qui reçoit les avertissements et alertes. Celle-ci est distincte de la première et est donc affichée si l'on n'a rien fait pour l'éliminer ou la récupérer aussi.

Les backquotes et la commande open ne récupèrent que la sortie standard, et pas celle d'erreur.

Je crois que la commande système récupère les deux (sauf spécification contraire)

Certains éliminent tout simplement leurs sorties d'erreur avec une redirection explicite de la sortie d'erreur vers un puit sans fond (/dev/null sous *n*xoïdes) :

Code:

---

$Ping = `${Ping_Cmd} ${Ping_Cible} 2>/dev/null`;

---

D'autres, plus subtils, utilisent les mécanismes de Perl pour les redirections de la sortie d'erreur vers des fichiers séparés :

Code:

---

1 2	open(STDOUT, ">fichier_des_erreurs.txt"); system("${Ping_Cmd} ${Ping_Cible}");

---

Pourrais tu juste me preciser a quoi correspond le chiffre 2 STP de la commande:

Code:

---

$Ping = `${Ping_Cmd} ${Ping_Cible} 2>/dev/null`;

---

Et merci ca fonctionne nickel !!

Le 2 est le numéro de la sortie d'erreur.

Le 1 est le numéro de la sortie standard, et c'est le numéro implicite de l'opérateur de redirection >.

Si l'on veut rediriger autre chose que la sortie standard, il faut préciser ... donc pour STDERR, c'est "2>".

C'est la sortie standard des erreurs. De cette façon, elle est redirigée, en l'occurrence dans un puits sans fond... :D

Opps, bah on est synchro 2Eurocents ! :lol: