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