my $host = "X.X.X.X"; my $usr = "root"; my $pas = "root"; my $ssh1 = Net::SSH::Expect->new ( host => $host, password=> $pas, user => $usr, raw_pty => 1, timeout => 20 ); my $login_output = $ssh1->login(); if ($login_output !~ /#/) { print "Debug: login failed "; $ssh1->close(); } else { $ssh1->cmd("/system/reboot force"); $ssh1->close(); return 0;
In reply to net-ssh-expect is giving error by james_culling
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |