Perl双引号

示例

与单引号字符串不同，双引号字符串使用插值和转义。要双引号字符串，请使用双引号"或qq运算符。

my $greeting = "Hello!\n";
print $greeting;
# => Hello! (followed by a linefeed)

my $bush = "他们低估了我。"
print qq/As Bush once said: "$bush"\n/;
# => As Bush once said: "他们低估了我。" (with linefeed)

这qq在这里很有用，以避免必须转义引号。没有它，我们将不得不写...

print "As Bush once said: \"$bush\"\n";

...那不是很好。

Perl不限制你使用一个斜杠/用qq; 您可以使用任何（可见）字符。

use feature 'say';

say qq/You can use slashes.../;
say qq{...or braces...};
say qq^...or hats...^;
say qq|...or pipes...|;
# say qq ...but not whitespace. ;

您还可以将数组内插到字符串中。

use feature 'say';

my @letters = ('a', 'b', 'c');
say "I like these letters: @letters.";
# => I like these letters: a b c.

默认情况下，这些值以空格分隔–因为特殊变量$"默认为单个空格。当然，这可以更改。

use feature 'say';

my @letters = ('a', 'b', 'c');
{local $" = ", "; say "@letters"; }    # a, b, c

如果愿意，可以选择use English并更改$LIST_SEPARATOR：

use v5.18; # English should be avoided on older Perls
use English;

my @letters = ('a', 'b', 'c');
{ local $LIST_SEPARATOR = "\n"; say "我最喜欢的信件：\n\n@letters" }

对于任何比这更复杂的事情，您应该使用循环。

say "我最喜欢的信件：";
say;
for my $letter (@letters) {
  say " - $letter";
}

插值并没有与哈希工作。

use feature 'say';

my %hash = ('a', 'b', 'c', 'd');
say "This doesn't work: %hash"         # This doesn't work: %hash

有些代码滥用引用的内插法，请避免使用它。

use feature 'say';

say "2 + 2 == @{[ 2 + 2 ]}";           # 2 + 2 = 4 (avoid this)
say "2 + 2 == ${\( 2 + 2 )}";          # 2 + 2 = 4 (avoid this)

所谓的“购物车操作符”使perl取消@{ ... }引用[ ... ]包含要内插的表达式的数组引用2 + 2。当您使用此技巧时，Perl会构建一个匿名数组，然后取消引用并丢弃它。

该${\( ... )}版本虽然不那么浪费，但仍然需要分配内存，并且更难读取。

相反，请考虑编写：

• say "2 + 2 == " . 2 + 2;

• my $result = 2 + 2; say "2 + 2 == $result"