在 Perl 中打印字符串

Question

有没有一种简单的方法（也许使用子例程）在 Perl 中打印字符串而不转义每个特殊字符？

这就是我想做的：

print   DELIMITER <I don't care what is here> DELIMITER

所以显然，如果我可以将字符串而不是特殊字符作为分隔符，那就太好了。

Answer 1

perldoc perlop，在“引用和类引用运算符”下，包含所有内容你需要。

虽然我们通常将引号视为文字值，但在 Perl 中它们充当运算符，提供各种插值和模式匹配
能力。 Perl 为这些行为提供了惯用的引号字符，而且还提供了一种方法让您为任何以下行为选择引号字符：
他们。在下表中，“{}”代表您选择的任意一对分隔符。

习惯通用含义插值
    '' q{} 文字否
    "" qq{} 字面意思是
    `` qx{} 命令是*
            qw{} 单词表 否
    // m{} 模式匹配 yes*
            qr{} 模式 是*
             s{}{} 替换 是*
            tr{}{} 音译 no（但见下文）
    <




Answer 2

$str = q(this is a "string");
print $str;

如果您的意思是带有“特殊字符”的引号和撇号

Answer 3

您可以使用 __DATA__ 指令，它将把以下所有行视为可以从 DATA 句柄访问的文件：

while (<DATA>) {
   print # or do something else with the lines
}

__DATA__
#!/usr/bin/perl -w
use Some::Module;
....

或者您可以使用heredoc：

my $string = <<'END';  #single quotes prevent any interpolation
#!/usr/bin/perl -b
use Some::Module;
....
END

Answer 4

打印并没有对转义符做特殊的事情，双引号字符串正在做这件事。您可能想尝试单引号字符串：

print 'this is \n', "\n";

在单引号字符串中，唯一必须转义的字符是单引号和紧接在字符串末尾之前出现的反斜杠（即 'foo\\' ）。

需要注意的是，插值不适用于单引号字符串，因此

print 'foo is $foo', "\n";

不会打印 $foo 的内容。

Answer 5

您几乎可以通过 q 或 qq 使用任何您想要的字符。例如：

#!/usr/bin/perl

use utf8;
use strict; use warnings;

print q∞This is a test∞;
print qq☼\nThis is another test\n☼;
print q»But, what is the point?»;
print qq\nYou are just making life hard on yourself!\n;
print qq¿That last one is tricky\n¿;

您不能使用 qq DELIMITER foo DELIMITER。但是，您可以使用heredocs来达到类似的效果：

print <<DELIMITER
...
DELIMETER
;

或者

print <<'DELIMETER'
...
DELIMETER
;

您的源代码将非常难看。

Answer 6

如果你想按字面打印字符串，并且你有 Perl 5.10 或更高版本，那么

say 'This is a string with "quotes"' ;

将用换行符打印字符串。重要的是使用单引号 ' ' 而不是双引号 " ”