Discussion :

[jean tof]

Bonjour

j'ai un petit problème de timeout. j'aimerais pourvoir le descendre en dessous de la seconde. En faite, j'ai un nom de pc et je veux connaitre son adresse IP, donc je fais un ping sur ce nom et j'obtiens son ip. Mais lorsque le nom de pc correspond a aucune IP, j'ai un timeout d'une seconde meme si je précise 0.01 seconde (1 seconde doit être par defaut).
Et comme j'ai environ 350 PC, le scan dure environ la minute alors qu'il pourrait etre de 10 secondes grand max.

Voici mon code

use Net:: Ping;
$host = "pc-80kc32j";
$p = Net:: Ping->new("icmp");
$p->hires();
($ret, $duration, $ip) = $p->ping($host,0.01);
printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration);
$p->close();
il y a un espace entre :: Ping car s'il tout est collé, j'ai un smilley

Donc si quelqu'un sait comment diminuer le timeout en dessous de la seconde, merci de m'en faire part

[MarneusCalgarXP]

Je ne sais pas si on peut diminuer le ping en dessous d'une seconde, mais ce que tu peux faire, c'est forker ton appli et lancer 1 thread par PC scanné ! ca évitera d'avoir à attendre le résultat d'une requête avant de commencer à scanner un 2°

il y a un espace entre :: Ping car s'il tout est collé, j'ai un smilley

C'est à ça que sert la balise code.
Merci d'y penser la prochaine fois, parce que là c'est un code simple, mais quand c'est plus compliqé...

[jean tof]

Je viens d'essayer mais en faite ça ralenti le processus. Perl doit mettre du temps a réserver de la mémoire pour qu'un thread soit lancer. Ce qui fait que c'est plus rapide en faisant un à un que 10 par 10, par exemple. Il faut seulement environ 2 ms pour résoudre un nom de pc en une IP lorsque tout va bien. Sur mes 350 pc, je dois avoir environ 50 nom de pc non résolu.
Merci quand meme.

[Jedai]

Regarde la documentation de Net::Ping, il y a une méthode pour scanner plusieurs adresses en même temps sans forker (ni utiliser de threads).

--
Jedaï

[jean tof]

Ok je regarderai ça lundi parce que c'est week end maintenant

[jean tof]

Bonjour

J'ai cherché dans la doc et je ne vois pas comment on peut scanner plusieurs adresses en même temps. Enfin j'ai trouvé un exemple de la doc permettant d'interroger plusieurs adresses mais elles sont scannées les une après les autres.
Donc, si Jedai, tu pouvais me donner un peu plus de détail sur le scan simultané.

Voici l'exemple de la doc

Code :

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

1
2
3
4
5
6
7
8
9
10
@host_array[0] = "pc-80kc32j";
@host_array[1] = "PC-CNF508162";
$p = Net::Ping->new("syn");
$p->{port_num} = getservbyname("http", "tcp");
foreach $host (@host_array) {
  $p->ping($host);
}
while (($host,$rtt,$ip) = $p->ack) {
  print "HOST: $host [$ip] ACKed in $rtt seconds.\n";
}

Merci

[Jedai]

Bonjour

J'ai cherché dans la doc et je ne vois pas comment on peut scanner plusieurs adresses en même temps. Enfin j'ai trouvé un exemple de la doc permettant d'interroger plusieurs adresses mais elles sont scannées les une après les autres.
Donc, si Jedai, tu pouvais me donner un peu plus de détail sur le scan simultané.

Voici l'exemple de la doc

Code :

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

1
2
3
4
5
6
7
8
9
10
@host_array[0] = "pc-80kc32j";
@host_array[1] = "PC-CNF508162";
$p = Net::Ping->new("syn");
$p->{port_num} = getservbyname("http", "tcp");
foreach $host (@host_array) {
  $p->ping($host);
}
while (($host,$rtt,$ip) = $p->ack) {
  print "HOST: $host [$ip] ACKed in $rtt seconds.\n";
}

Merci

Regarde attentivement cet exemple : on ne regarde pas le résultat de ping(), tous les ping sont fait à la suite sans attendre la réponse. On attend la réponse dans la boucle while() avec la méthode ack(), mais les réponses n'arrivent pas forcément dans l'ordre où l'on a envoyé les ping().
En pratique tous les ping() sont attendus en parallèle.

--
Jedaï

[Jedai]

Bonjour

j'ai un petit problème de timeout. j'aimerais pourvoir le descendre en dessous de la seconde. En faite, j'ai un nom de pc et je veux connaitre son adresse IP, donc je fais un ping sur ce nom et j'obtiens son ip. Mais lorsque le nom de pc correspond a aucune IP, j'ai un timeout d'une seconde meme si je précise 0.01 seconde (1 seconde doit être par defaut).
Et comme j'ai environ 350 PC, le scan dure environ la minute alors qu'il pourrait etre de 10 secondes grand max.

Voici mon code

use Net:: Ping;
$host = "pc-80kc32j";
$p = Net:: Ping->new("icmp");
$p->hires();
($ret, $duration, $ip) = $p->ping($host,0.01);
printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration);
$p->close();
il y a un espace entre :: Ping car s'il tout est collé, j'ai un smilley

Donc si quelqu'un sait comment diminuer le timeout en dessous de la seconde, merci de m'en faire part

Si tu fais un ping seulement pour obtenir l'ip correspondante, tu ferais mieux d'utiliser gethostbyname() ...

--
Jedaï