Ca serait pour balancer une commande qui lit l'entrée standard et renvoie des données
 
j'ai essayé ca de mémoire mais marche pas.
quelqu'un a-t-il soit la réponse directement soit une doc adaptée.
 
Merci bppppp
 
if (!open(HOST, "telnet $HOST << END
user
password
uptime
exit
 
>> END |" )) { die "cannot open file ($!)";
};
 
 while (<HOST> ) {
   print "->$_";
   if ($uptime =~ /load average: (\d+\.\d+)/) {
      $load = $1;
   }
 }
 close HOST;
print "load = $load\n";

 
ya un module qui le gere regarde Term::ReadKey
il lit les entrée du clavier
 
pour executer une commande reagrde system

c pas popen à la place de open ??
chui pas bon en perl

merci de m'aider les gars    
 
popen c'est pas standard, connais pas :
quel module faut charger ? et qu'est ce que ca fait (avant de charger le module)?
 
sinon, readkey si c'est pour le clavier, rien a voir avec mon probleme.
le programme doit faire un telnet automatique et pas interactif.

ah ! detail :
si je fais un appel systeme, comment que je balance mes commandes telnet !!
 
c'est pas possible car il faudrait que ce soit des parametres de telnet or ce n'en est pas.
 
le truc du style "echo "user\npassword\n |telnet" ca marche pas non plus.
 
YA au moins une solution avec du code ressemblant bp a ce que je propose.

ya un module ki existe pour telnet il se nomme Net::Telnet  
cherche la doc sur http://www.perl.com/search/index.ncsp?sp-q=telnet
 
tu le trouvera en premier (normalement

ça m'énerve les topics 'Seulement pour les bons' ...
ca va les chevilles?
Ya sans doute des gens qui ne se considèrent pas comme 'bons' en perl, qui sont bien meilleurs que toi, et qui savent faire ce que tu demandes.
Tant pis pour toi.
A force d'être trop prétencieux, on fini par l'avoir bien profond parfois.. Alors un peu de modestie, ca n'a jamais fait de mal à personne.

tu serais pas en NTIE par hasard ?

SoWhatIn22 ??
 
  Comprend pas  
Je ne me considere pas comme un 'bon' en Perl mais comme quelqu'un qui fait des scripts Perl depuis 2 ans  
 
D'ailleur on n'ai jamais 'bon' dans un langage même apres 20 ans de pratique, on juste un peu plus d'expérience que les autres.
 
et loin de moi l'idée de me considérer comme 'bon' car je connais d'autres qui sont beaucoup plus expérimenté que moi  

zemat a écrit a écrit : merci de m'aider les gars       popen c'est pas standard, connais pas : quel module faut charger ? et qu'est ce que ca fait (avant de charger le module)?   sinon, readkey si c'est pour le clavier, rien a voir avec mon probleme. le programme doit faire un telnet automatique et pas interactif.

 
 
Oups en fait c pas popen, g confondu, c'est open en mettant | avant la commande :
if (!open(HOST, "| telnet $HOST ...

SteF_DOBERMANN a écrit a écrit : SoWhatIn22 ??     Comprend pas   Je ne me considere pas comme un 'bon' en Perl mais comme quelqu'un qui fait des scripts Perl depuis 2 ans     D'ailleur on n'ai jamais 'bon' dans un langage même apres 20 ans de pratique, on juste un peu plus d'expérience que les autres.   et loin de moi l'idée de me considérer comme 'bon' car je connais d'autres qui sont beaucoup plus expérimenté que moi

alors pourquoi mettre ce titre racoleur à ton topic?
enfin ca a l'air de plus en plus à la mode. Et ça me gonfle. c'est tout.

c pas moi ki ecris ce topic,
je me contente juste de d'y répondre du mieux que j epeux  

SteDobberman > merci mais je peux pas installer ce module sur une machine que je ne controle pas.
ca sera en dernier recours ...
 
boddupont > ca suffit pas parce que il faut aussi balancer les parametres a  
j'ai essayé plein de combinaisons avec le pipe avant, apres etc ... sans succes.
as tu essayé toi meme et reussi a faire marcher telnet ainsi ?
 
sowhat22 >
 1- je m'en fou de ton avis
 2- ca n'est pas pretencieux de s'addresser aux bons
 3- et puis le mec qui sais faire ca et qui se considere pas bon c'est tant pis pour lui
 4- en tout cas efficace le titre ! un peu trop parce que meme les blaireaux comme toi se pointent.
 5- continue a t'enerver tu me fais bien rire

petite relance : Alleeeeeeeeeezzzz

la je suis scotché

ben quoi ? y viens me chercher sur mon topic !

oui mais pas d'autre solution  

ah ok! on est 2  

si tu peux pas installer de module, j'voi pas  

 
J'avais pas bien compris le problème  
je m'abstiens de répôndre à ton topic maintenant

merci quant meme c'est sympa