Perl 如何将ssh连接到服务器，读取pid文件并带回#？

我的任务是使用Perl将ssh连接到另一台服务器，如果进程尚未启动，则停止/启动/重新启动该进程

我将把它分解成小块：

：：如何通过ssh连接到服务器，读取pid文件并带回#？：：

我可以这样做：系统（“ssh serverid.gcsc.att.com-l myid-i/home/myid/.ssh/authorized_keys'kill-9 1234'”；很好，在验证到服务器后终止进程

---

但是，我如何读取该服务器上的pid文件/任何文件，并将该值输入到变量中，以便使用ssh终止进程？

最简单的方法是使用反勾号

 my $output = `ssh server -l myid -i /home/myid/.ssh/authorized_keys some_command`;

---

$output

将包含

ssh

命令的输出

哦，老兄，很微妙，但很准确，你！背后的一切都在滴答作响。希兹。非常感谢。一次一纳米级。我的$output=

ssh server.acme.com-l myuid-i/home/myuid/.ssh/authorized\u keys less tail\u myuid.pid

；打印$output。“\n”；放入$output内容“1234”。