如何在perl系统函数中同时使用管道并防止shell扩展？

如果将多个参数传递给 perl 的系统函数，则 shell 扩展将不起作用：

# COMMAND
$ perl -e 'my $s="*"; system("echo", "$s" )'

# RESULT
*

如果该命令作为一个参数传递，则扩展将起作用：

# COMMAND
$ perl -e 'my $s="echo *"; system("$s")'

# RESULT
Desktop Documents Downloads

系统功能还允许使用多个命令并使用管道连接它们。仅当参数作为一个命令传递时才有效：

# COMMAND
$ perl -e 'my $s="echo * | cat -n"; system("$s")'

# RESULT
1 Desktop Documents Downloads

如何组合上述命令并使用两个管道并防止 shell 扩展？

我努力了：

# COMMAND
$ perl -e 'my $s="echo"; system("$s", "* | cat -n")'

# RESULT
* | cat -n

但这不起作用，因为我上面描述的原因（多个参数未扩展）。我想要的结果是：

1 *

编辑： 我实际面临的问题是当我使用以下命令时：

system("echo \"$email_message\" | mailx -s \"$email_subject\" $recipient");

然后 $email_message 被扩展，如果它包含一些由 shell 进一步扩展的字符，它将破坏 mailx。

system具有三种调用约定：

system($SHELL_CMD)

system($PROG, @ARGS)               # @ARGS>0

system( { $PROG } $NAME, @ARGS )   # @ARGS>=0

第一个将命令传递给 shell。它相当于

system('/bin/sh', '-c', $SHELL_CMD)

另外两个执行程序$PROG. system永远不会阻止 shell 扩展或执行任何转义。根本不涉及外壳。

所以你的问题是关于构建 shell 命令。如果出现提示，您可以使用

echo \* | cat -n

or

echo '*' | cat -n

to pass *。您需要一个执行转义工作的函数*在插值之前。幸运的是，已经存在一个：字符串::ShellQuote http://search.cpan.org/perldoc?String::ShellQuote's shell_quote.

$ perl -e'
   use String::ShellQuote qw( shell_quote );
   my $s = "*";
   my $cmd1 = shell_quote("printf", q{%s\n}, $s);
   my $cmd2 = "cat -n";
   my $cmd = "$cmd1 | $cmd2";
   print("Executing <<$cmd>>\n");
   system($cmd);
'
Executing <<printf '%s\n' '*' | cat -n>>
     1  *

I used printf代替echo因为很难处理从以下开始的争论- in echo。大多数程序接受--将选项与非选项分开，但不是我的echo.

所有这些复杂问题都引出了一个问题：你为什么要花钱发送电子邮件？处理来自外部程序的错误通常比处理来自库的错误要困难得多。