在具有“ @”字符的Perl脚本中运行系统命令

Question

我有这样的系统命令：

unix_command "@output_file path_to_file" 

现在，当我在perl脚本中尝试exec或system命令时，出现此错误：

期望运算符时获取字符串。

您能帮我在Perl中做到这一点吗？

感谢您的帮助。

万分感谢！ 拉克什

Answer 1

system实际上是两个不同的功能。

您可以使用它来启动程序。

以下语法用于启动程序：

system($prog, @one_or_more_args)
system({ $prog }, $arg0, @args)

使用这些语法之一，作为参数传递的所有字符串都将原封不动地传递给子程序。

用法示例：

system('perl', '-e', 'my @a = "foo"; print "@a\n";');

您可以使用它来执行shell命令。

以下语法用于执行shell命令：

system($shell_cmd)

上面的缩写

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

您必须提供有效的shell命令。 如果您正在构建命令，则需要注意适当地转义任何需要转义的内容。

用法示例：

use String::ShellQuote qw( shell_quote );

my $cmd = shell_quote('perl', '-e', 'my @a = "foo"; print "@a\n";');
system($cmd);

---

具体来说，shell命令

program @file1 file2

可以执行如下：

system('program', '@'.$file1, $file2);

如果您实际上需要构造一个shell命令（例如，因为您要重定向输出），则可以使用以下命令：

use String::ShellQuote qw( shell_quote );

my $cmd = shell_quote('program', '@'.$file1, $file2) . ' >output.txt 2>&1';
system($cmd);

Answer 2

如果不需要插值，请使用单引号。

system 'echo @a';

如果这样做，请使用反斜杠。

system "echo \@a";