sh: 1:语法错误:使用backticks perl时意外重定向

Question

my $mysql_cmd = 'debconf-set-selections <<< \'mysql-server mysql-server/root_password password 6ygr\' ;debconf-set-selections <<< \'mysql-server mysql-server/root_password_again password 6ygr\'; '.our $install_cmd." mysql-server";
my $mysql_stat = `$mysql_cmd`;

我使用上面的代码从我的perl脚本中安装mysql。但我发现了这个错误

sh: 1: Syntax error: redirection unexpected

当我打印$mysql_cmd时，我得到了debconf-set-selections <<< 'mysql-server mysql-server/root_password password 6ygr' ;debconf-set-selections <<< 'mysql-server mysql-server/root_password_again password 6ygr'; apt-get -y install mysql-server

它似乎在shell中纠正和手动执行此命令提供了所需的输出。但是，当执行perl脚本时，会出现错误。有什么想法吗？

Answer 1

您应该将IPC::Run用于这类作业。

use IPC::Run qw(run);
my @options = map "mysql-server mysql-server/$_ password 6ygr",
    qw(root_password root_password_again);
my $mysql_stat;
run [qw(debconf-set-selections)], '<', \$_, '>>', \$mysql_stat, '2>>', \$mysql_stat
    or die "debconf-set-selections: $?"
    for @options;
run [ $install_cmd, 'mysql-server' ], '>>', \$mysql_stat, '2>>', \$mysql_stat
    or die "$install_cmd: $?";

主要原因是你不喜欢处理引用问题和不兼容等问题。

Answer 2

perl使用/bin/sh执行命令。尝试将该字符串提供给sh，如果您得到相同的错误，这就是问题所在。

如果要使用bash执行该语句，请使用bash -c "cmd args ..."作为命令。

如果您只需要将一行传递给命令，那么最好避免<<<的不可移植的bashism。相反，使用在任何shell中工作的echo "whatever" | command。