【发布时间】：2014-12-23 04:30:47
【问题描述】：
我在 Windows 2008 r2 机器上运行游戏服务器，我正在尝试设置一个自动重启脚本以每 12 小时运行一次，到目前为止，我正在使用 Windows 任务调度程序每 12 小时加载一个 Perl 脚本，该脚本连接到telnet 为了让玩家知道服务器正在重新启动，然后当脚本完成时它会关闭并且我的第二个任务调度程序运行一个 .bat 来终止打开的任务并重新启动它们，我想要做的是终止进程然后重新启动相同的进程只使用 perl 脚本，因此不需要 .bat。
所以我一直在疯狂地搜索并且空无一物，我对使用 Perl 非常陌生，所以我根据我想做的事情在谷歌中找到的东西都是使用 PID 来终止正在运行的任务。我对打开和关闭保存的 txt 文件进行了测试，以查看进程 ID 是否在每次打开时都发生变化，并且看起来确实如此。因此，除非有解决方法，否则使用 PID 是行不通的。
这里是 Telnet 连接，如果有人也可以帮我清理它，所以没有太多的打印，也许可以调用变量来代替它以使其更简单一点，它也会有所帮助。
$hostname = "IP_HERE";
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 60,
Prompt => '/bash\$ $/');
$t->open(Host => $hostname,
Port => PORT_HERE);
$t->waitfor('/Please enter password/');
$t->print("PASSWORD_HERE");
$t->print("say \"[FF0000]WARNING! [FF0000]SERVER WILL RESTART IN [FF0000]3 MINUTES[FFFFFF] !!!\" ");
sleep(60);
$t->print("say \"[FF0000]WARNING! [FF0000]SERVER WILL RESTART IN [FF0000]2 MINUTES[FFFFFF] !!!\" ");
sleep(60);
$t->print("say \"[FF0000]WARNING! [FF0000]SERVER WILL RESTART IN [FF0000]1 MINUTE[FFFFFF] !!!\" ");
sleep(45);
$t->print("say \"[FF0000]WARNING! [FF0000]SERVER WILL RESTART IN [FF0000]15 SECONDS[FFFFFF] !!!\" ");
sleep(15);
$t->print("say \"[FF0000]WARNING! [FF0000]SERVER WILL RESTART IN [FF0000]5\" ");
sleep(1);
$t->print("say \"[FF0000]WARNING! [FF0000]SERVER WILL RESTART IN [FF0000]4\" ");
sleep(1);
$t->print("say \"[FF0000]WARNING! [FF0000]SERVER WILL RESTART IN [FF0000]3\" ");
sleep(1);
$t->print("say \"[FF0000]WARNING! [FF0000]SERVER WILL RESTART IN [FF0000]2\" ");
sleep(1);
$t->print("say \"[FF0000]WARNING! [FF0000]SERVER WILL RESTART IN [FF0000]1\" ");
sleep(1);
$t->print("sa");
sleep(3);
$t->print("shutdown");
sleep(3);
exit;
如果有人能让我朝着正确的方向开始，那将意味着很多，我已经检查了系统和其他一些东西，但无论我发现什么，它总是显示以 PID 而不是进程名称结束进程。并且没有任何东西向我展示了根据其所在目录加载程序备份的正确方法。
【问题讨论】：
标签： windows perl variables batch-file telnet