如何在这段 Perl 代码中进行转义？

Question

#!/usr/bin/perl
use warnings;
system ("dialog --menu Customize 10 70 50 'Flush rules' 'Clear all the rules' 'Show rules' 'Shows the current rules' 2> /tmp/tmp.txt ")

我想以更易读的形式编写上面的代码，如下所示

#!/usr/bin/perl
use warnings;
system ("dialog --menu Customize 10 70 50 
'Flush rules' 'Clear all the rules' 
'Show rules' 'Shows the current rules' 
'more options' '........' 2> /tmp/tmp.txt ")

我该怎么做？

Answer 1

Perl 提供了一个字符串连接运算符，您可以使用它来构建大字符串：

system ( "dialog --menu Customize 10 70 50 "
       . "'Flush rules' 'Clear all the rules' "
       . "'Show rules' 'Shows the current rules' "
       . "'more options' '........' 2> /tmp/tmp.txt ");

Answer 2

system 可以采用 @args （数组形式）：

system ( 'dialog', @args );

Answer 3

system ( "dialog --menu Customize 10 70 50 "
   . "'Flush rules' 'Clear all the rules' "
   . "'Show rules' 'Shows the current rules' "
   . "'more options' '........' 2> /tmp/tmp.txt ");

哎呀，tadmc 很快。是的，使用 . 连接命令。

我建议您在单独的字符串中创建命令，然后执行该命令。我还建议使用qq命令进行引用。这样，您就不必担心单引号和双引号：

my $command = qq(dialog --menu Customize 10 70 50 )
   . qq("Flush rules" 'Clear all the rules' )
   . qq('Show rules' 'Shows the current rules' )
   . qq'more options' '........' 2> /tmp/temp.$ );

my $error = system $command;

使用 qq 让您不必担心我是否需要使用双引号来允许变量插值或单引号，或者有逃避引号。例如，我能够混合使用双引号和单引号，并且我可以使用 Perl 变量，而不必担心是否必须从单引号更改为双引号。例如，我使用 /tmp/temp.$$。 $$ 是进程 ID，因此如果执行该命令两次，则会使用两个不同的临时文件。

通过为我的命令创建一个单独的变量，我现在可以稍后使用它——就像我的系统命令中出现错误一样。

顺便说一句，您应该始终检查 system 命令的返回。如果由于某种原因您无法执行系统命令，您很可能想出错或至少记下该问题。

问题之一是系统命令的输出与大多数 Perl 函数相反。在大多数 Perl 函数中，返回零表示失败，返回非零表示成功。然而，system 函数却恰恰相反。零意味着成功，非零意味着失败。

这可能会导致奇怪的 if 结构：

if (system $command) {
    die qq(Can't execute command "$command"\n);
};

这看起来像是我在说，如果我的系统命令成功，我应该死，但它的真正含义与此相同：

my $error = system $command;

if ($error) {
   die qq(Can't execute command "$command"\n);
}

这在语法上更有意义。