Mazhar,
try:
$telnet->waitfor(Match => '/login: $/i');
and
$telnet->waitfor(Match => '/password: $/i');
Vishal,
Right, you want to wait for the device to return something that will match the
expression between the slashes. In that example, you'd be waiting for the
device to return a login prompt ending with a space and you'd ignore
capitalization.
On Monday 05 December 2005 10:19, [EMAIL PROTECTED] wrote:
> Hey Mazhar,
>
> I don't know much about perl, but in the $telnet->waitfor method, what does
> the weird parameter mean ('/login: $/i')? I thought that $ means a scalar
> variable in perl. What do the forward slashes do here? Some sort of regular
> expression??
>
> Vishal
>
> Quoting Mazhar <[EMAIL PROTECTED]>:
> > Hi Folks,
> > I have installed the module NET::TELNET from CPAN and when i try to
> > execute the below simple pgm,
> >
> > --------------------****************************-----------------------
> > use Net::Telnet;
> > $telnet = new Net::Telnet ( Timeout=>100,Errmode=>'die');
> > $telnet->open('202.177.129.37');
> > $telnet->waitfor('/login: $/i');
> > $telnet->print('root');
> > $telnet->waitfor('/password: $/i');
> > $telnet->print('[EMAIL PROTECTED]');
> > print $telnet->cmd('who');
> >
> > -------------------------------------------------------------------------
> >----- The Output of the above program is
> > pattern match read eof at prog.pl line 12
> >
> >
> > Please help me out folks as where may be the problem
> >
> > Regards
> > Mazhar
>
> ----------------------------------------
> This mail sent through www.mywaterloo.ca
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
