Perl 脚本 Telnet 到多个 IP 并发送重启命令，并将确认打印到日志文件

Question

我正在尝试编写 Perl 脚本（以前从未这样做过）。

基本上，此脚本用于连接到 VoIP 电话系统并重新启动设备。我希望它连接到每个站点设备，重新启动它并打印设备确认正在发生重新启动或连接错误到日志文件。我不知道我在用 Perl 做什么，我什至不知道到目前为止我所拥有的是否是正确的。这正是我通过在谷歌/论坛上挖掘所找到的。

我希望脚本执行以下操作：

我希望 Perl 脚本 Telnet 到预设的 IP 地址列表。

我想要一个它将连接到的 IP 的 .txt 列表（它们都使用相同的登录名/密码）。 或者是否可以将列表包含在实际的 Perl 脚本中，以后可以对其进行编辑以添加/删除 IP？

一旦脚本远程登录，我希望它发送命令“立即重启”，然后将响应连同它在发送命令时连接到的 IP 一起打印到日志文件（命令时的响应发出类似于“系统正在关闭以重新启动”之类的东西）。我希望它为它连接的每个 IP 执行此操作，如果它无法连接，我希望它打印一个错误，类似于“XXX.XXX.XXX.XXX 无法连接”

所以日志看起来像这样：

XXX.XXX.XXX.101 System going down for reboot
XXX.XXX.XXX.102 System going down for reboot
XXX.XXX.XXX.103 Unable to Connect
XXX.XXX.XXX.104 Unable to Connect
XXX.XXX.XXX.105 System going down for reboot

这可能吗？

我目前有这个：

#!/usr/bin/perl -w
use strict;
use Net::Telnet;

my $log = './log.txt';

$telnet = new Net::Telnet ( Timeout=>10,
Errmode=>'die'
Prompt => '/\$ $/i');
$telnet->open('IPADDRESS');
$telnet->login('USERNAME', 'PASSWORD');
print $telnet->cmd('reboot now');
writef($log);

对于提示 => 我是否需要更改它以匹配您 telnet 并连接到 IP 时显示的任何符号？我看到的符号是 # 所以命令是：

Promt => '/\# #/i);

任何帮助都会很棒。

Answer 1

您是否在这些设备上启用了 SSH？您需要正则表达式来匹配提示。如果您有# 或something#，则可以使用/# $/。

#!/usr/bin/perl -w
use strict;
use Net::Telnet;

my $log = './log.txt';

open LOG, ">>$log";         #open log file - append mode
open IPS, "<ip.list";       #open ip.list file - read mode
while(<IPS>){
 my $ip = $_;               #current iteration (line) of IPs file
 $telnet = new Net::Telnet ( Timeout=>10,
         Errmode=>'die'
         Prompt => '/# $/i');
 $telnet->open($ip);
 $telnet->login('USERNAME', 'PASSWORD');
 if($telnet->cmd('reboot now')){
  print LOG "$ip System going for reboot";
 }else{
  print LOG "$ip Unable to Connect";
 }
}
close LOG;                  #close files
close IPS;

ip.list 只是 IP 列表，每行一个。

XXX.XXX.XXX.101
XXX.XXX.XXX.102
XXX.XXX.XXX.103
...