Bonjour  
 
Je debute en perl et j ai un probleme avec mon script. Ce script s execute sur un poste WIN2000 vers un serveur UNIX, quand je l execute rien ne se passe il reste actif et mon print de fin ne m affiche rien. La session sur le serveur unix est bien ouverte car j ai pu verifier ma connexion en faisant un w sur mon serveur unix.
 
use net::telnet;
my $username="toto";
my $passwd="pwd";
my $HOST="adresse ip";
   
my $t = new Net::Telnet (Timeout=>undef) or die "Can't connect:$!";
 $t->open($HOST);
 $t->login($username, $passwd);
 
my @lines=$t->cmd("ls" );
print join(' ',@lines);
   
Merci pour votre aide

J'ai fait un copier coller de ton script, pour moi ca marche bien. T'es sur que tu as des fichiers a lister dans ton repertoire sur ton serveur unix ?

Oui Oui ,J ai bien des fichiers à lister.
cdl

Quelle est ta couche perl ?
 - Cygwin  
 - Active perl  
 - SFU
 - Perl Natif compiller avec Visual
 
Ah oui et regarde aussi si ton prompt n'est pas etrange : quelque chose qui pourrait troubler le parsing de Net::Telnet.

Je suis sous Active Perl 5.8 et le module (ppd) net::telnet est le 3.03

Et tu peux faire un copier coller de ton prompt ?

Quand j ouvre une autre session telnet par une fenetre dos je vois ma session perl car j' ai  
root     ttyp1         6:42am                      -sh

J ai refait une manip pour voir ce qui tournait
ps -ef | grep ttyp1
root  2245  2244  0 07:30:50 ttyp1     0:00 -sh
root  2290  2267  2 07:31:48 ttyp2     0:00 grep ttyp1
root  2244   732  0 07:30:50 ttyp1     0:00 telnetd

J ai trouve  
C est le compte root qui ne passe pas, avec un autre compte pas de probleme
Merci quand meme