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

[kiss78]

Non pas du tout, je m'explique . J'argumente mes propos . J'ai pas du tout envie de lancer un débat sur quel est le "best" langage du moment . Je dois utiliser Perl dans le cadre d'un stage et je fais avec. Je suis venu ici pour chercher un peu d'aide pas pour polimiquer.

Dailleurs, personne peu me donner un coup de pouce sur mon sujet ?

[Jedai]

Parce que tu trouves beaucoup d'exemple d'un script PHP proposant un prompt local pour un ssh ?
Sérieusement tu trouves autant d'exemple pour Perl que pour PHP, et dans un domaine bien plus étendu (puisque Perl est un langage généraliste). Ce n'est pas parce qu'il y a un site où il n'y a pas d'exemples de Perl qu'il n'y a pas de ressource pour Perl...
D'ailleurs tu dis que tu ne trouves pas d'exemples mais dans ton premier post tu as pratiquement toute la structure de ton programme final. Si tu cherches carrément un script qui ferait exactement ce que tu veux, tu as peu de chance de le trouver, quel que soit le langage (sinon on aurait plus besoin de programmeur).

La doc d'IO:: Prompt (note bien que le module vient avec un répertoire complet d'exemples...) est très simple pour n'importe quel programmeur Perl même débutant (c'est à dire qui sait déjà faire des entrées-sorties, si tu ne sais pas tu ferais bien de lire un petit cours de Perl...).

Pour ce qui est du "coup de pouce", je t'ai déjà indiqué comment faire, et comme l'indique les règles du forum on ne donne pas de script tout fait, on aide simplement les gens qui font un effort de leur côté (aide toi, le forum t'aidera...).

--
Jedaï