Может ли значение быть неинициализированным, но все еще определено в Perl?

Question

Запуск ActiveState Perl 5.10.1 на win32.

Как получилось, что этот код:

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

... умирает с 1, в то время как изменения в той же строке, чтобы сказать это:

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

... умирает с Use of uninitialized value in die?

Как это defined еще uninitialized? Я думал, что uninitialized означает undefined.

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.