Discussion :

[d.w.d]

Bonjour, je suis en train de developpez un outil de looking glass. J'ai choisi le perl pour faire les connexions telnets et envoyer des commandes sur les appareils. Ca marche plutot pas mal pour le moment à part une petite chose que j'aimerai ameliorer.

Lorsque j'envoi une commande ping via @res=telnet->cmd("ping 192.168.1.1 count 5"); il attend de terminer la commande avant d'afficher le resultat.

Code :

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

1
2
3
4
5
 
for($i=0;$i<@res;$i++)
{
	print @res[$i]."<br />";
}

J'ai vu sur un looking glass en perl (je sais plus ou) une reponse en temps reel ou il affiché ligne par ligne le resultat, comme lorsque l'on fait un ping sur une machine.

J'ai donc penser au thread en faisant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
$thr = threads->new(\&execute_cmd,"ping 192.168.1.1 count 5");
sub execute_cmd 
{
	print "Dans le thread ".@_[0]."<br />";
	@DonneesRenvoyees=$telnet->cmd(@_[0]);
	for($i=0;$i<@DonneesRenvoyees;$i++)
	{
		print @DonneesRenvoyees[$i]."<br />";
	}
}

D'une part ca n'affiche rien et de toute facon ca resoudrai pas mon pb je pense.

Alors comment faire ? Avez vous une idée car moi je seche un peu là ! ! !
D'avance merci. Cordialement,
Damien

[djibril]

tu as un module Net::Ping disponible sur le CPAN

[d.w.d]

Oui mais le ping je ne le fait pas sur mon serveur web mais sur un equippement (type routeur et switch). C'est d'ailleur pour cette raison que j'utilise telnet. En effet mon topics aurait peut etre du mentionner ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
$telnet  = new Net::Telnet (Timeout=>10);
$telnet->open($ip_juniper);
if($telnet->login($login_juniper, $pass_juniper))
{
	...
	print "Vous êtes maintenant connecté sur ".$ip_juniper."<br />";
	$thr = threads->new(\&execute_cmd,"ping 192.168.1.1 count 5");
	...
}

Et ceci m'affiche:

Vous êtes maintenant connecté sur 192.168.1.1

D'avance merci

[d.w.d]

Un petit up.
svp aider moi

[Jedai]

A priori c'est un problème dans la façon dont tu utilises Net::Telnet, tu n'as nullement besoin de threads (à éviter en Perl généralement). cmd() attend que le prompt soit renvoyé (donc que la commande ait terminé de s'exécuter) avant de retourner la sortie de la commande. A la place il faut que tu utilises print() pour envoyer la commande et getline() pour lire ligne par ligne jusqu'à ce que tu vois le prompt de nouveau.

Quelque chose comme :

Code :

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

1
2
3
4
5
$telnet->print("ping blabla");
while( my $line = $telnet->getline() ) {
  last if $line =~ m/[\$%#>] $/;
  print $line;
}

--
Jedaï

[d.w.d]

Bonjour et merci pour ta reponse.
Le souci quand j'utilise getline c'est que j'ai un warning timeout.
Il n'y aurai pas moyen de configurer apache pour lui dire de renvoyer le resultat au fur et à mesure avant que le script est fini de s'executer.
Car ca va etre un 2e probleme aussi ???

D'avance merci. Cordialement,
Damien

[d.w.d]

Je viens de réésayer le bout de code que tu m'a donné. Effectivement ca fonctionne, mais la condition de sortie n'été pas bonne.

Maintenant j'en revien a la 2e question de mon dernier post : Comment afficher le resultat au fure et a mesure, et non pas a la fin de l'execution de mon script ?

D'avance merci