如何将指定Linux Shell命令封装到Perl的system函数中？

你的问题出在引号转义和system调用格式上，以下是两种可行的实现：

方式一：通过shell执行（保留原命令逻辑） #

需要正确转义字符串中的引号，让shell能处理命令替换$(...)：

use strict;
# 转义双引号，让Perl正确解析字符串
system("date --set=\"\$(ssh richard@192.168.0.4 'date -u')\"");

# 或者用单引号包裹整个命令，内部单引号用两个单引号转义
# system('date --set="$(ssh richard@192.168.0.4 ''date -u'')"');

方式二：分步执行（更安全，推荐） #

先获取远程时间，再调用system设置本地时间，避免复杂的引号处理，同时降低shell注入风险：

use strict;
# 获取远程UTC时间，chomp去掉末尾换行
my $remote_utc_date = qx(ssh richard@192.168.0.4 'date -u');
chomp $remote_utc_date;

# 用system的列表形式直接执行，无需shell解析
system('date', '--set', $remote_utc_date);

为什么你的写法失败： #

• 第一种写法：双引号未转义，Perl无法正确解析嵌套的双引号，且$(...)会被Perl当成变量插值，而非shell命令替换。
• 第二种写法：system的列表形式中，参数不会被shell处理，$(ssh ...)会被当作普通字符串传递给date命令，自然无法执行。

内容的提问来源于stack exchange，提问作者gatorreina