Récupérer une valeur numérique pour un ping

Récupérer une valeur numérique pour un ping - Perl - Programmation

Marsh Posté le 22-04-2015 à 09:45:40    

Bonjour à tous !
 
Je ne sais pas si le titre de mon topic est assez explicite, je vais donc développer un peu mon problème :
 
J'ai trouvé un script perl permettant de faire un ping, et ce script et fonctionnel.
(Voici le script en question :

Code :
  1. use Net::Ping;
  2. $p = Net::Ping->new('icmp');
  3. my $main_ip="$ARGV[0]";
  5. if ($p->ping($main_ip,1)){
  6.     $result=true;
  7.     print "$main_ip is alive \n";
  8. }else{
  9.     print "$main_ip is down \n";
  10. }


)
 
Cependant, j'aimerais intégrer ce script dans un fichier de config MRTG, mais pour ce faire je dois récuperer des valeurs "numériques".
En effet, MRTG ne prend en compte que des nombres.
 
Si quelqu'un a la solution, je suis tout ouïe :D
 
Passer une bonne journée !
 
Cordialement, Zinaye.

Reply

Marsh Posté le 22-04-2015 à 09:45:40   

Reply

Marsh Posté le 22-04-2015 à 17:25:47    

Des valeurs numériques de quoi?
 
A+,


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 24-04-2015 à 10:14:25    

Bonjour Gilou,
 
Je devais récuperer des valeurs type "100" et "0", interprétables par MRTG.
 
J'ai trouvé ma solution, pour ceux que ça peut aider :
 

Code :
  1. use Net::Ping;
  2. $p = Net::Ping->new('icmp');
  3. my $main_ip="$ARGV[0]";
  4. if ($p->ping($main_ip,1)){
  5.     $result=int(100);
  6. }else{
  7.     $result=int(0);
  8. }
  9. print "$result\n";
  10. print "$result\n";
  11. print "$0\n";
  12. print "$0\n";


 
Merci encore :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed