为什么Perl的字符串乘法不会对undef发出警告？

Question

下

use strict;
use warnings;
my $foo = undef;

表达式

$foo . ''

和

"$foo"

都生产

Use of uninitialized value $foo in ... at ...

但是下面的表达式给出了没有警告的空字符串：

$foo x 1

谁知道为什么？ 我的意思是，有一个很好的字符串化习惯很酷（ $_ x 1比defined ? "$_" : ''短得多defined ? "$_" : '' ），但感觉有点奇怪。

Answer 1

我曾经在法学院的课堂上看过一个带场景的节目。 导师向他的学生提出了两个类似的案例，并询问他们为什么会导致不同的裁决。 他最终解释说，这是因为裁决是由法官制定的，而法官是人。

那应该是警告。 在Perl上工作的开发人员就是人。 如果您愿意，运行perlbug发送错误报告。