給定/當未定義值

Question

在下面的代碼中，我得到一個uninitialized value警告，但只在第二個given/when示例。爲什麼是這樣？

#!/usr/bin/env perl 
use warnings; 
use 5.12.0; 

my $aw; 

given ($aw) { 
    when ('string') { 
     say "string"; 
    } 
    when (not defined) { 
     say "aw not defined"; 
    } 
    default { 
     say "something wrong"; 
    } 
} 

given ($aw) { 
    when (/^\w+$/) { 
     say "word: $aw"; 
    } 
    when (not defined) { 
     say "aw not defined"; 
    } 
    default { 
     say "something wrong"; 
    } 
} 

我得到的輸出是：

aw not defined 
Use of uninitialized value $_ in pattern match (m//) at ./perl.pl line 20. 
aw not defined 

Answer 1

given/when使用 「smartmatch operator」：~~。

undef ~~ string是：

undef  Any  check whether undefined 
        like: !defined(Any) 

因此，沒有警告這裏。

undef ~~ regex是：

Any  Regexp  pattern match          
         like: Any =~ /Regexp/ 

，並試圖匹配undef時生成一個警告。

Answer 2

調用when (EXPR)通常等於when ($_ ~~ EXPR)。而undef ~~ 'string'是!defined('string')所以你不會得到警告，但undef ~~ /regexp/是undef =~ /regexp/所以你會得到警告。

請參閱Switch Statements in perlsyn和Smartmatch Operator in perlop。