Tugger the SLUGger!SLUG Mailing List Archives

Re: [SLUG] ask perl(script for telnet)


can you telnet to the machine normally?
like not in perl?

Dean

henry wrote:
> Dears :
> 
>  
> 
> I can telnet to host(linux802) by typing  
> 
>                                                    >      "telnet 
> linux802" ,
> 
>                                                    >       "bilbo" (uid) ,
> 
>                                                    >       "baggins" (pwd)
> 
>  
> 
>  
> 
> But when I apply telnet.pl as follows ,all I got is
> 
>  
> 
>                                Timeout for waiting , line 6 
> ($telnet->login('bilbo', 'baggins'); )
> 
>  
> 
> Could some one give me hint to solve the problem?
> 
>  
> 
>  
> 
>  
> 
>   use Net::Telnet;
>   $telnet = new Net::Telnet ( Timeout=>20 ,
>                               Errmode=>'die' ,                  
> 
>                               Prompt => '/bash\$ $/');
>   $telnet->open('linux802');                  #host
>   $telnet->login('bilbo', 'baggins');        #uid&pwd
> 
>  
> 
>  
> 
>  
> 
>  
> 
> BestRegards
> 
> Henry
>