perl - 为什么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 ? "$_" : ''短很多)，但是感觉有点奇怪。

Answer 1

我曾经在法学院的类里面看过一个带有场景的表演。讲师向他的学生介绍了两个类似的案例，并询问为什么它们导致不同的裁定。他最终解释说，这是因为裁决是由法官作出的，而法官是人。

那应该警告。在Perl上工作的开发人员是人。如果需要，请运行perlbug发送错误报告。