我可以通过 ssh 将局部变量回显到远程文件中吗？

Question

我尝试在文件末尾写入变量，但将其写入本地服务器的 STDOUT 一些代码：

$num = <STDIN>
my $cmd = "echo $dep_keys{$num} >> /root/1";
#$ssh->system({stdin_data =>$dep_keys{$num} },"echo >> /root/1");
#$ssh->error die "Couldn't establish SSH connection: ". $ssh->error;
#$ssh->system("echo $dep_keys{$num} >> /root/1");
$ssh->system($cmd);

我希望该文件将在文件末尾包含新行。

Answer 1

use String::ShellQuote qw( shell_quote );

defined( my $num = <STDIN> )
   or die("Invalid input");

chomp($num);

defined($dep_keys{$num})
   or die("Invalid input");

my $cmd = shell_quote('printf', '%s\n', $dep_keys{$num}) . ' >>/root/1';
$ssh->system($cmd);

修复：

• 检查 EOF 和其他无效输入。
• 从$num中删除尾随换行符（如果有）。
• 将文本从 hash 元素正确转换为 shell 文字。
• 避免echo显，因为echo显使 output 某些字符串成为不可能。