Discussion :

[Zinaye]

Bonjour à tous !

J'ai trouvé en fouillant sur la toile un script de ping fonctionnel

Cependant, je ne sais pas comment réussir à récupérer des valeurs "numériques" pour les afficher dans MRTG afin de faire un graphe.

Si quelqu'un peut m'aider, je vous en serais reconnaissant

Code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philou67430]

La méthode ack() retourne l'adresse IP (entre autre).
Regarde l'exemple ici.

[Zinaye]

Merci pour votre réponse.

Cependant je recherche plus à transformer les valeurs "is alive" et "is down" en valeur interprétable pour MRTG

Par exemple afficher 100 quand l'adresse est pingable, et 0 dans le cas échéant.

EDIT :

J'en arrive à la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

j'ai mes 4 valeurs qui s'affichent pour les log, cependant MRTG ne peut toujours pas interpréter ce script.
Je pense qu'il ne reconnait pas les valeurs "100" et "0" comme entier.

Que puis-je faire pour modifier cela?

Merci par avance

[Zinaye]

Bon, j'ai réussi par moi même !

Merci quand même Gilou, en fait c'était tout bête ^^'

Pour ceux qui étaient dans la même galère que moi, voici le script final utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philou67430]

Je ne vois pas en quoi écrire int(100) au lieu de 100 change quelque chose (surtout pour l'écrire ensuite sous forme de chaine).
J'imagine que vous avez fait d'autres modifications ailleurs, peut-être même en dehors du script perl.

[Zinaye]

En fait, ce script n'avait pas pour but d'être affiché dans une fenêtre DOS.

Je devais utiliser ce script dans l'outil MRTG, et ce dernier ne prends en compte que des nombres.

Ainsi, avant de mettre (int)100, MRTG prenait ce résultat pour une chaine de caractère, et ne pouvait donc pas l'utiliser

[Lolo78]

Je ne vois pas en quoi écrire int(100) au lieu de 100 change quelque chose (surtout pour l'écrire ensuite sous forme de chaine).
J'imagine que vous avez fait d'autres modifications ailleurs, peut-être même en dehors du script perl.

Je me posais exactement les mêmes questions.