如何转义 Perl 字符串中类似代码的内容？

Question

$i=1; while($i<3) { 打印<< “EOT”； def px$i = 新 E(用户) if (!px$i.hasErrors()) { println "${px$i.name} / ${px$i.empr.to} 确定" }

EOT

    $i++;
}

产生错误：

如果 borrar.pl 第 3 行没有包或对象引用，则无法调用方法“px”。

如何“转义” if ？

谢谢。

Answer 1

很难说这段代码应该完成什么任务，但也许您希望 println 语句中的外部美元符号保留在最终输出中？

println "\${px$i.name} / \${px$i.empr.to} OK"

经过这一更改，我看到的无错误输出是：

def px1 = new E(user) 
if (!px1.hasErrors()) {
        println "${px1.name} / ${px1.empr.to} OK"
}

def px2 = new E(user) 
if (!px2.hasErrors()) {
        println "${px2.name} / ${px2.empr.to} OK"
}

Answer 2

命令行选项 -MO=Deparse 显示 Perl 在简化代码后如何解释代码（例如，将 heredocs 转换为 qq{} 块）。例如

$ perl -MO=Deparse test.pl
$i = 1;
while ($i < 3) {
    print qq[    def px$i = new E(user) \n    if (!px$i.hasErrors()) {\n            println "${$i->px . 'name';} / ${$i->px . 'empr' . 'to';} OK"\n    }\n\n];
    ++$i;
}

相关部分是：

println "${$i->px . 'name';} / ${$i->px . 'empr' . 'to';}

Perl 已将 ${px$i.name} 转换为 ${$i->px 。 '名字'}！

在 Perl 中， ${...} 表示评估块内的任何内容，并将其视为 符号引用（即变量名）或标量引用，然后取消引用它以将其恢复为标量。因此，Perl 尝试执行这些块内的任何内容，将其内容视为 Perl 代码。这是因为您的定界文档 "EOT" 就像一个双引号字符串，并插入美元符号。

解决方案是：转义美元符号 ($ -> \$) 或使用单引号和连接而不是这里文档。

Answer 3

这应该可以解决问题。

println "${"px$i.name"} / ${"px$i.empr.to"} OK"
println "px$i.name" / px$i.empr.to OK"

Answer 4

正如您所看到的，字符串的 $px 部分正在被评估。您只需要转义它：

$i=1;
while($i<3) {
    print << "EOT";
    def px$i = new E(user) 
    if (!px$i.hasErrors()) {
            println "\${px$i.name} / \${px$i.empr.to} OK"
    }

EOT

    $i++;
}

阅读有关字符串转义的更多信息 perldoc perlop 在“解析引用结构的血淋淋的细节”下。

Answer 5

my $format = << 'EOT';
def px%d = new E(user)
    if (!px%d.hasErrors()) {
            println "${px%d.name} / ${px%d.empr.to} OK"
    }
EOT

for my $i ( 1 .. 3 ) {
    printf $format, ($i) x 4;
}