perl - 在递归 ssh 命令中引用 bash 和 perl

Question

我正在编写一个 perl 脚本来使用 ssh 登录服务器并在服务器上执行一些 shell 命令。问题是服务器只能通过首先登录到另一台服务器来访问。(我正在使用 ssh key 进行无密码登录)。

以下 bash 脚本工作正常，并说明了问题:

#! /bin/bash
server1="login.uib.no"
server2="cipr-cluster01"
ssh "$server1" "ssh $server2 \"echo \\\"\\\$HOSTNAME\\\"\""

它将正确的主机名打印到我的屏幕上:cipr-cluster01。然而，当试图在 Perl 中做同样的事情时:

my $server1="login.uib.no";
my $server2="cipr-cluster01";

print qx/ssh "$server1" "ssh $server2 \"echo \\\"\\\$HOSTNAME\\\"\""/;

我得到以下输出:login.uib.no。所以我想，perl 脚本的引用存在一些问题..

Answer 1

qx 类似于双引号。你必须再反斜杠一些:

print qx/ssh "$server1" "ssh $server2 \"echo \\\\"\\\$HOSTNAME\\\\"\""/;

使用单引号可能会大大简化命令:

print qx/ssh "$server1" 'ssh $server2 "echo \\\$HOSTNAME"'/;