为 bash 命令转义 perl 反引号中的括号

Question

多年来我一直在使用反引号，但这是我第一次尝试使用带括号的命令。我遇到了一个我无法弄清楚的错误。

我尝试在多个位置添加双引号并使用 \ 转义，但似乎没有任何效果。任何帮助将不胜感激。

命令 $file5 和 $file6 是 perl 变量，而不是 bash。

@array = `/usr/bin/join -j 1 -t, <(cat $file5 | awk -F, '{print \$3","\$1}' | sort) <( cat $file6 | awk -F, '{print \$3","\$1}' | sort) `

错误： AH01215: sh: -c: line 0: 意外标记 `(', referer:

附近的语法错误

Answer 1

反引号使用/bin/sh，虽然<( ... ) 可以被bash 识别，但它不能被bourne shell 识别。如果使用反引号，则需要使用

my $bash_cmd = ...;
my @lines = `bash -c $bash_cmd`;

可以使用String::ShellQuote 来构建sh 和bash shell 命令。

use String::ShellQuote qw( shell_quote );

my $file5_quoted = shell_quote($file5);
my $file6_quoted = shell_quote($file6);

my $awk_cmd = shell_quote("awk", "-F,", '{print $3","$1}');

my $bash_cmd = '/usr/bin/join -j 1 -t,'
   . " <( $awk_cmd $file5_quoted | sort )"
   . " <( $awk_cmd $file6_quoted | sort )";

my $sh_cmd = shell_quote("bash", "-c", $bash_cmd);
my @lines = `$sh_cmd`;

我们可以使用IPC::System::Simple 的capturex 来避免启动过多的shell，并提供错误检查。为此，请将上面的最后两行替换为以下内容：

use IPC::System::Simple qw( capturex );

my @lines = capturex("bash", "-c", $bash_cmd);

Answer 2

一种解决方法是创建一个从 perl 接受两个文件名的 shell 脚本，使用这两个输入文件处理连接，并将结果返回到 perl 数组。

#1。创建包含以下四行的 join.sh： 猫 $1 | awk -F, '{打印 $3","$1}' |排序 > 1.out 猫 $2 | awk -F, '{打印 $3","$1}' |排序 > 2.out /usr/bin/join -j 1 -t, 1.out 2.out rm 1.out 2.out #2。修改您的 perl 语句以调用 join.sh，如下所示： @array=`join.sh $file5 $file6`;