在Perl中打印字符串

Question

有没有简单的方法，使用一个子例程，可以在Perl中打印一个字符串而不会逃脱每个特殊字符？

这就是我想做的事：

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

所以，很显然它会很大，如果我可以把一个字符串作为分隔符，而不是特殊字符。

Answer 1

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

，如果你的意思是引号和撇号与“特殊字符”

Answer 2

印刷没有做特别的东西给逃逸，双引号中的字符串在这样做。你可能想尝试单引号字符串：

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

在一个单引号字符必须转义的唯一字符是单引号和该字符串的结尾（即'foo\\'）之前立即出现反斜杠。

重要的是要注意的是插不与单引号字符串的工作，所以

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

不会打印$foo内容。

Answer 3

如果你想从字面上打印一个字符串，你有Perl 5.10或更高版本，然后

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

将打印字符串以一个换行符。该importaning就是用单引号' '而非双那些" "

Answer 4

perldoc perlop，在“Quote and Quote-like Operators”下，包含您需要的一切。

尽管我们通常将引号看作字面值，但在Perl中它们充当运算符，提供各种插值和模式匹配功能。 Perl为这些行为提供习惯的引用字符，但也为您提供了一种方法让您为它们中的任何一个选择您的引用字符。在下表中，“{}”表示您选择的任何一对分隔符。

Customary Generic  Meaning  Interpolates 
    ''  q{}   Literal    no 
    ""  qq{}   Literal    yes 
    ``  qx{}   Command    yes* 
      qw{}   Word list   no 
    //  m{}  Pattern match   yes* 
      qr{}   Pattern    yes* 
      s{}{}  Substitution   yes* 
      tr{}{} Transliteration   no (but see below) 
    <<EOF     here-doc   yes* 

    * unless the delimiter is ''. 

Answer 5

可以使用__DATA__指令，它会将所有的以下行作为可以从DATA手柄访问的文件：

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

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

，或者您可以使用定界符：

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

Answer 6

你几乎可以使用任何你想要的字符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。但是，你可以使用here文档有同样的效果：

print <<DELIMITER 
... 
DELIMETER 
; 

或

print <<'DELIMETER' 
... 
DELIMETER 
; 

但你的源代码将真的难看。