Undefined routine avec le module Net::Ping::External
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::Ping::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:
Undefined subroutine &main::ping called at ./ul_env_check.pl line 168.
voici mon script (en partit)
Code:
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
