Discussion :

[kiss78]

Bonjour,

Dans le cadre d'un stage je dois faire un programme qui permet de lancer des commandes à distances sur des commutateurs via un script PERL. J'ai chercher à droite à gauche et j'ai trouvé des solutions qui ne correspondent pas exactement à ce que je veux faire. Par exemple je suis tomber sur un script qui me permet de lancer des commandes misent les unes à la suite des autres dans un fichier ou encore un script permetant d'envoyer des commandes prédéfinis dans le programme.
ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use strict; 
 use Net::Telnet; 
 use CGI qw/:standard :html3 :netscape escape unescape/; 
 use CGI::Carp qw/fatalsToBrowser/; 
 
 my $username="login; 
 my $passwd="password"; 
 my $HOST="toto.fr"; 
 print header; 
 my $t = new Net::Telnet (Timeout=>undef) or die "Can't connect:$!"; 
 $t->open($HOST);
 $t->login($username, $passwd); 
 my @lines = $t->cmd("/ma/commande/a/executer");
 print join(' ',@lines);

J'aurais donc voulu savoir si c'était possible de faire un script qui me lance un prompt apres lui avoir saisi l' @IP le login et le password du matériel.
Si vous avez des élements de réponse ou meme des liens pouvant me mettre sur une piste n' hésiter pas.

Exposé comme cela vous pensez surement que ca n'a aucun intéret car autant faire directement un telnet mais c'est pour l'intégrer dans un gros script.

Cordialement.

[Jedai]

C'est très facile, il suffit de gérer le prompt toi même, puis de transmettre à Net::Telnet les commandes. Je te conseille l'excellent IO:: Prompt pour la gestion du prompt si tu peux installer des modules du CPAN.
(NB : si tu es sûr que tu es sous un système avec un telnet et que tu ne veux pas faire de contrôle de sécurité sur les commandes et que tu n'as pas besoin de conserver les résultats en Perl, tu peux simplement faire un appel système (system("telnet")) ).

--
Jedaï

[kiss78]

ok , merci . je vais essayer de me débrouiller. Ce n'est pas trop clair vu que je débute mais je vais voir ce que je peux faire. tu n'aurais pas des exemples de script la dessus? Je trouve que Perl manque de ressources. On ne trouve pas assez d'exemples sur le net.

[Jedai]

ok , merci . je vais essayer de me débrouiller. Ce n'est pas trop clair vu que je débute mais je vais voir ce que je peux faire. tu n'aurais pas des exemples de script la dessus? Je trouve que Perl manque de ressources. On ne trouve pas assez d'exemples sur le net.

...... Le CPAN ne te suffit pas ??.... Perl manque de ressources !

--
Jedaï

[kiss78]

Certes il y a la doc du CPAN mais bon elle n'est pas franchement "tout public".
il faut avouer que Perl est beaucoup moins documenté que le PHP par exemple.Il y a peu de site de passionnés très peu d' exemples de scripts. Voila pourquoi je dis que ça manque de ressources !

[Mr6]

.... ca sent le troll...

@+
Mr6