Perl中的字符串连接涉及函数的输出等

以下代码不输出任何内容：

print (1 == 2)."a";

就像这样：

print qw< One Two Three > . "a";

但是这会输出一个雪人,然后是字母a,如预期的那样：

print chr(0x2603)."a";

是否存在连接一般“事物”的一般方法,因为缺少一个更好的单词(例如函数输出和布尔比较的结果)与字符串片段总是有效？因为.运算符似乎不可靠.

解决方法

由于列表和上下文在Perl中的工作方式,这是预期的行为.

发生了什么

这条线

print (1 == 2)."a";

解析如下：

( print( 1 == 2 ) . "a" )

由于1 == 2返回一个空字符串,因此不打印任何内容.然后将打印本身的返回值与a连接并丢弃.

如果你打开了使用警告(你应该总是这样做,以及严格使用),你会看到：

print (…) interpreted as function at -e line 1.
Useless use of concatenation (.) or string in void context at -e line 1.

这条线

print qw< One Two Three > . "a";

事实上,是否打印字符串Threea.那是因为qw<一二三>相当于表达式('One','Two','Three').连接运算符.将该表达式放在标量上下文中,标量上下文中逗号运算符的行为是返回其右侧操作数.因此表达式减少到Threea.再次,如果你有警告,你会看到：

Useless use of a constant (“One”) in void context at -e line 1.
Useless use of a constant (“Two”) in void context at -e line 1.

这个故事的主旨

use strict;
use warnings;