Bonjour à tous et bonne année,

voila je suis en plein dans la creation d'un simple script perl qui doit simplement pinger un serveur et retourner une valeur en fonction de la réponse ICMP.

Pour cela j'utilise le module Net:ing::External.

je ne l'ai pas installer via cpan, mais j'ai récupérer le fichier "External.pm" que j'ai placer dans le même dossier que mon script en .pl

j'ai plus ou moin fais un copier coller de l'exemple fournis ici http://search.cpan.org/~colinm/Net-P...11/External.pm en l'adaptant à mon cas.

en fait l'histoire est étrange car j'avais commencer ce script il y a qques semaines et ca marchait très bien. le serveur sur lequel est exécuter ce script a été réinstaller, ainsi que mon ordi sur lequel je travaille.

le scirpt marchait sur les deux machine (mon ordi et le serveur), mais maintenant il n'y a plus rien qui marche j'ai l'erreur suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Undefined subroutine &main::ping called at ./ul_env_check.pl line 168.
voici mon script (en partit)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
5  use External qw(ping);
...
166#check if the ip is responding to ICMP request
167    my $alive = ping(host => "$_[0]");
168    if ($alive)
169    {
170        push @vip_result, 1;
171        push @vip_result, "The IP $_[0] is responding to ICMP request";
172        return 1;
173    }
174    return 0;

voila j'ai chercher partout sur gogole et n'ai pas trouver de réponse, donc je me permet de poster ici.

thx