Discussion :

[oulai]

je ne comprends pas le message d'erreur ( ligne 12)
please help.




root@SVTCZABAP02R: /usr/Supervision/Scripts $ ./cluster.pl
pattern match timed-out at ./cluster.pl line 12 <=message erreur





-------------------------script------------------------------------------

root@SVTCZABAP02R: /usr/Supervision/Scripts $ vi cluster.pl
1 #! /usr/bin/perl -w
2 use strict;
3 use warnings;
4 use Net::Telnet;
5 my($telnet,@lines,$username,$password,$host);
6 $host ='10.56.139.57';
7 $username = 'Administrator';
8 $password =' synergie' ;
9 $telnet = new Net::Telnet( Port => 23, Timeout=>2,
10 Errmode=>'die');
11 $telnet->open($host);
12 $telnet->waitfor('/login: $/i');
13 $telnet->print('Administrator');
14 $telnet->waitfor('/password: $/i');
15 $telnet->print('synergie');
16 $telnet->waitfor('/\$ $/i');
17 @lines = $telnet->cmd( "cluster group /status > c:\\\\Documents and sett ings \\\\Administrator\\\\pierre.txt");
18 print @lines ;

[Philou67430]

Il signifie sans doute que ton serveur telnet ne renvoie pas ce prompt dans le délai par défaut (ou probablement, que ta regexp ne matche pas le prompt qui est retourné).
Peux-tu indiquer quel prompt est retourné par ton serveur telnet ?
(à la place de l'espace, peut-être pourrais-tu écrire \s*)