在Perl的system中执行远程Awk列交换命令失败，求解决建议

你的错误源于两层核心问题：

1. 单引号嵌套冲突：Perl的system命令用双引号包裹，其中ssh命令的单引号与awk脚本的单引号发生冲突，导致shell提前截断awk命令，仅解析到{print就终止，引发语法错误。
2. Perl变量插值：$2和$1在Perl双引号字符串中会被当作Perl变量解析（而非传给awk的字段变量），即便引号问题解决，这两个值也会被替换为空，导致awk无法正确识别字段。

修正方案 #

方案1：转义单引号与Perl变量 #

在shell单引号中插入单引号需用'\''（闭合当前单引号→插入单引号→重新打开单引号），同时给$2、$1加反斜杠，避免Perl解析它们：

system("ssh -p 22 root\@$mainip 'awk -F, '\''{print \$2,\$1}'\'' OFS=, /root/archive/ipdomain.txt > /root/ipdom.txt'");

方案2：改用双引号包裹ssh命令 #

将ssh的整个远程命令用双引号包裹，内部awk脚本用单引号，同时转义Perl中的$：

system("ssh -p 22 root\@$mainip \"awk -F, '{print \$2,\$1}' OFS=, /root/archive/ipdomain.txt > /root/ipdom.txt\"");

方案3：使用数组形式调用system（更安全） #

数组形式的system会直接传递参数，避免多层shell解析的引号问题，用q{}操作符避免Perl插值：

system(
    'ssh', '-p', '22', "root\@$mainip",
    q{awk -F, '{print $2,$1}' OFS=, /root/archive/ipdomain.txt > /root/ipdom.txt}
);

方案4：直接用Perl处理（无需调用awk） #

如果不需要依赖awk，可以用Perl直接完成列交换，避免远程调用的引号麻烦：

system("ssh -p 22 root\@$mainip 'perl -F, -lane \"print join(q(,), \$F[1], \$F[0])\" /root/archive/ipdomain.txt > /root/ipdom.txt'");

解释：Perl的-F,指定分隔符为逗号，-lane自动处理行输入输出，$F[1]和$F[0]对应原第二列和第一列，用逗号拼接后输出。

内容的提问来源于stack exchange，提问作者Elizabeth F. Compton