perl 是否有与字符串中的 TCL expr 等效的函数

Question

我有一个编写 html 页面的脚本。

很多内容是固定的，所以我用打印QQ！在单个语句中输出格式良好的文本。

其中几行需要嵌入一个变量 + 2，因此我最终预先计算了 $myVarplus2，在这种情况下这是可以的。

my $myVarPlus2 = $myVar + 2;

在 TCL 中，我可以在语句中使用 [expre $myVar + 2]。 Perl 有类似的概念吗？

这相当于我想做的事情，

print qq!
$('td:nth-child(n)').show();!
$('td:nth-child([expr $myVar + 2])').removeClass('failCount');!

我宁愿不分解该声明

print qq!
$('td:nth-child(n)').show();!
$('td:nth-child(" . $myVar + 2 . qq!').removeClass('failCount');!

，但接受它可能是最简单的方法。

Answer 1

一种方法是使用 Perl 字符串中的穷人模板：

print qq!
\$('td:nth-child(n)').show();
\$('td:nth-child(@{[ $myVar + 2 ]}).removeClass('failCount');!

这取决于您自己的判断是否比分解语句更具可读性，以及在什么时候它变得难以维护。

另一种方法是 printf

printf q!
$('td:nth-child(n)').show();
$('td:nth-child(%s).removeClass('failCount');!, $myVar + 2;

但除了 Perl Golf 之外，除非这是一个简单的一次性项目，从长远来看，我认为您最好通过查看 模板工具包，然后你可以像这样编写你的输出

$template = q!
$('td:nth-child(n)').show();
$('td:nth-child([% myVar +2 %]).removeClass('failCount');!;

Answer 2

您可以只插入一个包含单个表达式的匿名 arrayref：

print qq!
$('td:nth-child(n)').show();!
$('td:nth-child(@{[ $myVar + 2] })').removeClass('failCount');!

但是，像这样混合 HTML 和 Perl 会很混乱。我建议使用模板模块，例如 HTML::Template 这将使您能够说:

 $tmpl->param(
     MYVAR => $myVar,
     OTHERVAR => ($myVar + 2),
 );

等等，给定一个包含以下内容的模板：

$('td:nth-child(n)').show();
$('td:nth-child(<TMPL_VAR OTHERVAR>').removeClass('failCount');

Answer 3

有一种可怕的黑客方法可以通过创建一个包含表达式的匿名数组并立即引用该数组来做到这一点。但我真的不推荐它。

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my $my_var = 10;

my $output = "my_var is $my_var. my_var + 2 is @{[ $my_var + 2 ]}";

say $output

使用真正的模板系统要好得多。我推荐模板工具包。