字符串:引起,内插替换和转义
理解字符串是如何工作的在任何编程语言中都很重要,尤其在Perl中, 它们是语言的精髓。你或许听说过,Perl又称为实用报表提取语言, 理所当然要了解很多关于字符串的东西。
字符串可以放在单引号'或者双引号"之间,而这两种形式的行为是不同的。
单引号
如果把字符放在单引号'之间,除了单引号本身'之外的绝大多数字符会解释成和写在代码中一样的形式。
my $name = 'Foo'; print 'Hello $name, how are you?\n';
输出:
Hello $name, how are you?\n
双引号
放在双引号之间的字符串支持插入替换(内嵌在字符串中的变量会被替换成其内容),而且也会替换转义字符,例如用换行符替换\n,用tab替换\t。
my $name = 'Foo'; my $time = "today"; print "Hello $name,\nhow are you $time?\n";
输出:
Hello Foo, how are you today?
注意,有个\n跟在逗号后面, 另一个在字符串结尾。
对于像'Foo'和"today"这样没有$,@,及\的简单字符串,无所谓是用什么引起的。
下面的两行是一个结果:
$name = 'Foo'; $name = "Foo";
email地址
因为在双引号字符串中@也会引起插入替换替换,在写email地址的时候需要格外注意。
在单引号中的@不会插入替换。
在双引号中则会产生错误 Global symbol "@bar" requires explicit package name at ... line ... 以及警告 Possible unintended interpolation of @bar in string at ... line ...。
后者给出了解决问题的线索。
use strict; use warnings; my $broken_email = "foo@bar.com";
下面的代码把email地址放在单引号中就能正常工作。
use strict; use warnings; my $good_email = 'foo@bar.com';
如果既需要插入替换标量,又要在字符串中使用@该怎么办呢?
use strict; use warnings; my $name = 'foo'; my $good_email = "$name\@bar.com"; print $good_email; # foo@bar.com
每当遇到这种情况,你都可以转义特殊字符,本例中的at符号@就是使用反斜线\这个转义字符来进行转义的。
在双引号字符串中内嵌$符号
同样的,如果想要在双引号字符串中包含$符号也可以使用这个的方法转义:
use strict; use warnings; my $name = 'foo'; print "\$name = $name\n";
输出:
$name = foo
转义转义字符
其实只有少部分情况下你需要在字符串中包含反斜线。如果把反斜线\放在字符串里(无论是在单引号还是双引号中),Perl都会认为你想转义下一个字符。
不要担心。你可以转义转义字符来告诉Perl不要这么做:
你仅需在它之前再放一个反斜线:
use strict; use warnings; my $name = 'foo'; print "\\$name\n";:w
\foo
我知道这种转义转义字符的方式有些奇怪,但是这就是其他语言的工作方式。
如果你想了解整个转义的细节,这样做:
print "\\\\n\n\\n\n";
see what does that print: 看一下输出:
\\n \n
然后自己解释一下。
转义双引号
我们了解了可以把标量放在双引号字符串中,而且可以转义$符号。
我们看到了如何使用转义字符\,也看到了如何转义它本身。
如果想要在双引号字符串中打印双引号该怎么办呢?
下面的代码有个语法错误:
use strict; use warnings; my $name = 'foo'; print "The "name" is "$name"\n";
当Perl看到单词"name"前面的双引号时,它认为字符串结束了,然后指出单词name是一个裸字。
你可能已经猜到了,我们需要转义内嵌的"字符:
use strict; use warnings; my $name = 'foo'; print "The \"name\" is \"$name\"\n";
This will print: 这会输出:
The "name" is "foo"
以上可以正常工作,但是阅读起来可能会有些困难。
qq, 双q操作符
你可以使用qq也称双q操作符来解决问题:
use strict; use warnings; my $name = 'foo'; print qq(The "name" is "$name"\n);
如果之前没有了解过的话,可能会把qq()看成函数调用,其实不是。qq是一个操作符,很快你就会知道它还能做什么,不过这里先解释一下上面的代码。
我们使用qq操作符的括号来代替原来字符串外面的双引号"。这样双引号在字符串中就不再特殊,进而不需要对它们转义了。这样会增加可读性。如果我不畏惧Python程序员的批评的话,甚至可以说这么写很漂亮。
不过,如果要在字符串中包含括号呢?
use strict; use warnings; my $name = 'foo'; print qq(The (name) is "$name"\n);
没关系的。如果它们是平衡的(也就是会说起始(和闭合)括号数量相同,且起始括号总是在闭合括号前面)Perl会理解的。
如果你非要破坏这种平衡,把闭合括号放在起始括号前面:
use strict; use warnings; my $name = 'foo'; print qq(The )name( is "$name"\n);
这样Perl会报出"name"是裸字的语法错误。Perl也不是万能的,对么?
当然你也可以在字符串中转义括号\) 和 \(, 不过这样会有些冒险,还是不要这么做了。
肯定还有更好的方法!
你还记得我说过qq是操作符而不是函数么?还有小窍门,对么?
如果我们使用花括号{}来代替圆括号会怎样样呢?
use strict; use warnings; my $name = 'foo'; print qq{The )name( is "$name"\n};
这也有效,并且按照我们想要的方式输出字符串:
The )name( is "foo"
(即使我不知道为什么我想这么打印...)
然后第二行的朋友举手提问:如果你想要在字符串中同时包含圆括号和花括号,并且它们并不配对怎么办?
你说的是这样对么?
use strict; use warnings; my $name = 'foo'; print qq[The )name} is "$name"\n];
printing this: 输出:
The )name} is "foo"
... 当然也有使用方括号的情况,对么?
q, 单q操作符
还有一个与qq相似的操作符q。它也允许你自定义字符串分隔符,不过它的工作方式和单引号'相同:不能插入替换变量。
use strict; use warnings; print q[The )name} is "$name"\n];
打印:
The )name} is "$name"\n
Published on 2013-05-28