在Perl中,值是否可以未初始化,但仍然可以定义?

在第一种情况下,匹配操作在标量上下文中进行。在第二种情况下,它发生在数组上下文中,就像您编写了:

my @groups = $r->unparsed_uri =~ '/(logout.pl)?$';
die @groups;

如果 $r->unparsed_uri 符合模式,但 $1 undef .

把它们放在一起,就好像你说:

die(undef);

鉴于

#!/usr/bin/perl -l

use strict; use warnings;

my $uri;

die(defined($uri =~ '/(logout.pl)?$'));

我明白了

Use of uninitialized value $uri in pattern match (m//) at E:\t.pl line 7.
1 at E:\t.pl line 7.

这就解释了发生了什么。

$uri m// . 因为 $uri 定义 . 因此,, defined 返回true和 die 输出 1