script perl (module telnet)
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 ;
