4

我从外部源获取一堆文本，将其保存在一个变量中，然后将该变量显示为更大的 HTML 块的一部分。我需要按原样显示它，而美元符号给我带来了麻烦。

这是设置：

# get the incoming text
my $inputText = "This is a $-, as in $100. It is not a 0.";

print <<"OUTPUT";
before-regex: $inputText
OUTPUT

# this regex seems to have no effect
$inputText =~ s/\$/\$/g;

print <<"OUTPUT";
after-regex:  $inputText
OUTPUT

在现实生活中，这些print块是更大的 HTML 块，其中直接插入了变量。

我尝试使用转义美元符号，s/\$/\$/g因为我的理解是第一个\$转义正则表达式以便它搜索$，第二个\$是插入的内容，然后转义 Perl 以便它只显示$。但我无法让它工作。

这是我得到的：

before-regex: This is a 0, as in . It is not a 0.
after-regex:  This is a 0, as in . It is not a 0.

这就是我想看到的：

before-regex: This is a 0, as in . It is not a 0.
after-regex:  This is a $-, as in $100. It is not a 0.

谷歌搜索让我想到了这个问题。当我尝试在答案中使用数组和 for 循环时，它没有效果。

如何让块输出完全按原样显示变量？

4

3 回答 3

7

当你用双引号构造一个字符串时，变量替换会立即发生。在这种情况下，您的字符串将永远不会包含该$字符。如果您希望$出现在字符串中，请使用单引号或转义它，并且请注意，如果您这样做，您将不会得到任何变量替换。

至于你的正则表达式，这很奇怪。它正在寻找$并将它们替换为$. 如果你想要反斜杠，你也必须逃避那些。

于 2012-11-07T22:14:50.283 回答
4

这就是我想看到的：

before-regex: This is a 0, as in . It is not a 0.
after-regex:  This is a $-, as in $100. It is not a 0.

嗯，嗯，我不确定一般情况是什么，但也许以下会做：

s/0/\$-/;
s/in \K/\$100/;

或者你的意思是从

 my $inputText = "This is a \$-, as in \$100. It is not a 0.";
 # Produces the string: This is a $-, as in $100. It is not a 0.

或者

 my $inputText = 'This is a $-, as in $100. It is not a 0.';
 # Produces the string: This is a $-, as in $100. It is not a 0.
于 2012-11-07T22:13:09.180 回答
2

您的错误是在变量声明中使用双引号而不是单引号。

这应该是：

# get the incoming text
my $inputText = 'This is a $-, as in $100. It is not a 0.';

了解 ' 和 " 和 ` 之间的区别。参见http://mywiki.wooledge.org/Quotes和http://wiki.bash-hackers.org/syntax/words

这适用于 shell，但在 Perl 中也是如此。

于 2012-11-07T22:14:58.817 回答