I am getting error in the below line'$telnet_session->waitfor('/System configuration has been modified. Sa +ve? yes/no:$/') or return $telnet_session; I am not able to find the error in the wait_for command. bad match operator: Substitution pattern not terminatedmy $telnet_session = new Net::Telnet (Timeout => 10); # $telnet_logfile && $telnet_session->input_log($telnet_logfile); $telnet_session->errmode('return'); $telnet_session->open("192.168.12.2") or return $telnet_session; $telnet_session->waitfor('/Username: $/') or return $telnet_session; $telnet_session->print($username); $telnet_session->waitfor('/Password: $/') or return $telnet_session; $telnet_session->print($ro_pass); $telnet_session->waitfor('/ap.*>$/i') or return $telnet_session; $telnet_session->print('enable'); $telnet_session->waitfor('/Password: $/') or return $telnet_session; $telnet_session->print($en_pass); $telnet_session->waitfor('/ap.*\#$/i') or return $telnet_session; $telnet_session->send('reload'); $telnet_session->waitfor('/System configuration has been modified. Sa +ve? [yes/no]:$/') or return $telnet_session; $telnet_session->print('yes'); $telnet_session->waitfor('/Proceed with reload? [confirm] $/') or retu +rn $telnet_session; print"rebooted"; # return $telnet_session;
In reply to reboot for cisco ap by james_culling
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |