[reseaux]Net::Ping et $ret

Bonjour,

J'exécutte ce code sans probleme:

Code:

---

1 2 3

($ret, $duration, $ip) = $p->ping($host,2); printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration) if ($ret);

---

Je ne comprend pas vraiment ce qu'il y a derière la variable $ret, si je teste:

Code:

---

1 2 3 4

($ret, $duration, $ip) = $p->ping($host,2); if $ret {printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration);}

---

Cela ne fonctionne plus. Quelqu'un sait de quoi il retourne? et éventuellement comment ajouter un else dans le code qui marche?

Merci

D'apres http://search.cpan.org/~bbb/Net-Ping...ib/Net/Ping.pm

Tu devrais plutot faire :

Code:

---

1 2 3 4

($ret, $duration, $ip) = $p->ping($host, 5.5); printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration) if $ret; $p->close();

---

Mais je comprends pas bien pourquoi ton code marchais pas

surtout en lisant ca

Citation:

---

Otherwise, the success flag will be 1 if the host is reachable and 0 if it is not

---

Le code que tu me suggères est celui que je cite en 1er (exepté mon timeout plus bas) et qui marche aussi chez moi mais je souhaites faire un else dans le cas ou le ping ne marche pas.

Comme toi, je ne comprend pas ou ce situe le soucis :-/

Simple, il faut lire la doc et tu t'aperçevra qu'il faut des parenthèses autour du test du if() { } (elle ne sont d'ailleurs pas indispensable si tu mets le if après, pourtant tu les as mises...), donc pour un else :

Code:

---

1 2 3 4 5 6 7

($ret, $duration, $ip) = $p->ping($host,2); if ( $ret ) { printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration); } else {   }

---

Tout simplement...

--
Jedaï

Merci, je testerai cela demain.

Code:

---

1 2 3 4

if ( &ret ) { printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration); } else {print ("testetetetest");}

---

Ca ne marche pas, message d'erreur:

Undefined subroutine &main::ret called at ./ping.pl line 65.

ca marchera mieux si tu mets $ret à la place de &ret.

@+
Mr6

oups, quel distrait je fais.

Merci