Libreria Telnet:: problemas con el PROMPT

[darkleo]

Buenas amigos foreros, tengo la siguiente inquietud, al correr este script

Código PHP:

  $ip="10.52.1.1"; 
my $session = Net::Telnet::Cisco->new(Host => $ip, 
                                        Prompt => '/^[\w.:-]+\s?(?:\(config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$/', 
                                      Input_log=>"input.log");  
$session->login('', 'BSR64KBuga$'); 
my $prompt2 = 'BUGA_MOTOROLA:7A>'; 
if ($prompt2 =~ Prompt){ 
$session->cmd("terminal length 0"); 
$session->enable("cabem") 
} 
$session->close;  
   

no logro que el programa avance hasta llegar al modo BUGA_MOTOROLA:7A#, se que existe el problema con los : del prompt, pero no logro conseguir que al establecer la exp regular del prompt [\w.:-] siga el programa, muchas gracias por su colaboración

[jferrero]

Prueba con

Código PHP:

  $ip="10.52.1.1"; 
my $session = Net::Telnet::Cisco->new( 
    Host      => $ip, 
    Prompt    => '/^[\w.:-]+\s?(?:\(config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$/', 
    Input_log =>"input.log", 
);  
$session->login('', 'BSR64KBuga$'); 
$session->cmd("terminal length 0"); 
$session->enable("cabem") 
$session->close;  
   

[darkleo]

gracias jferrero, probé lo que me dijo, pero continúo con el problema, se queda en el prompt

Código HTML:

cmts:8>

no sigue el programa hacia el enable y luego el password, asi

Código HTML:

cmts:8>enable;password:****;cmts:8#

Muchas gracias