Perl에서 값을 초기화 할 수 없지만 여전히 정의 할 수 있습니까?

Question

win32에서 ActiveState Perl 5.10.1을 실행 중입니다.

어떻게 그것을이 코드가 :

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

...이 Use of uninitialized value in die로 사망 :

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

...이 말을 같은 라인을 변경하는 반면, 1로 사망?

어째서 defineduninitialized? 나는 uninitialized가 미정이라고 생각했다.

Answer 1

첫 번째 경우에는 일치 연산이 스칼라 컨텍스트에서 수행됩니다. 두 번째 경우, 당신이 쓴 거의 것처럼, 배열 맥락에서 일어나고 : 일치하는 문자열이 "/"로 끝났다 때문에

$r->unparsed_uri 패턴과 일치하는 경우

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

하지만 $1가 정의되지 않은, 다음 @groups 것 단일 요소 undef을 포함하는 길이가 1 인 배열.

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을 출력합니다.