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.

[Philou67430]

Il n'y a pas de typage fort en perl : un nombre peut être écrit indifféremment sous forme d'un nombre littéral (100), ou sous forme d'une chaine de caractère ("100").
Par ailleurs, tu écris ce nombre dans une chaine dans ton script :

Code :

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

print "$result\n";

Le résultat dans le fichier de sortie du print doit être "strictement" le même. Je réitère donc qu'il y a sûrement eu un changement ailleurs (peut-être dans la manière d'appeler MRTG avec ce fichier construit en perl.

[Zinaye]

Ah d'accord, je ne savais pas cela !

A vrai dire, j'ai commencé à utiliser perl quand j'ai commencé mon stage (la semaine dernière)

Ce que je ne comprends pas c'est que je n'ai vraiment rien changé d'autre.

[Philou67430]

Peux-tu ré-essayer ton premier script, stp ?
Sinon, comment appelle-tu MRTG avec le résultat de ton script perl ?

[Zinaye]

Quand je réutilise mon premier script, j'ai cette erreur :

2015-04-22 11:26:34: WARNING: Problem with External get 'C:\mrtg-2.17.4\bin\Serv1\ping.pl x.x.x.x':
Expected a Number for 'in' but nothing'

2015-04-22 11:26:34: WARNING: Problem with External get 'C:\mrtg-2.17.4\bin\Serv1\ping.pl x.x.x.x':
Expected a Number for 'out' but nothing'


J'appelle mon script de cette manière :

Target[ping]: `perl C:\mrtg-2.17.4\bin\ping.pl x.x.x.x`
MaxBytes[ping]: 100

J'intègre directement le script perl dans le fichier de config MRTG, à la place de mettre les OID.

[Philou67430]

Peux-tu lancer ce script en dehors de MRTG et montrer le résultat ?

[Zinaye]

Lorsque je lance le script (le premier comme le deuxième) hors de MRTG (juste dans une fenêtre DOS), j'ai mes résultats (100 100 0 0) qui s'affichent parfaitement

[Philou67430]

J'avoue être perplexe et ne pas comprendre, ... et je n'aime pas ne pas comprendre

[Zinaye]

J'avoue que je ne comprends pas tout non plus.

Mais, l'essentiel, c'est que ça marche non?

En tout cas merci à tous !

[Philou67430]

Mais, l'essentiel, c'est que ça marche non?

Je dirais que oui dans ton cas, mais quelque chose qui marche sans qu'on ne sache pourquoi peut, de manière plus générale, cacher un bug qui se révélera dans un nouveau cas d'utilisation.
Je ne dis pas cela pour t'inciter à continuer à chercher bien sûr, mais ça me laisse un goût d'inachevé.

[Zinaye]

C'est vrai que ça me parait bizarre aussi..

Je vais continuer mes recherches, en gardant ce script fonctionnel pour le moment.

Merci encore de m'avoir aider à résoudre mon problème