在Perl中，值是否可以未初始化，但仍然是定义的？

Question

在win32上运行ActiveState Perl 5.10.1。

这段代码怎么样：

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

...死于1 ，而改变同一行说这个：

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

...死Use of uninitialized value in die ？

如何defined尚未uninitialized ？ 我认为未初始化意味着未定义。

Answer 1

在第一种情况下，匹配操作在标量上下文中进行。 在第二种情况下，它发生在数组上下文中，几乎就像你写的那样：

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

如果$r->unparsed_uri与模式匹配，但$1未定义，因为匹配的字符串以“/”结尾，则@groups将是长度为1的数组，包含单个元素undef 。

把它们放在一起，就像你说的那样：

die(undef);

Answer 2

你有警告吗？

特定

#!/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 ，因此匹配的结果为false但已定义 。 因此， defined返回true和die输出1 。