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