given/when with undefined value

Question

W poniższym kodzie otrzymuję ostrzeżenie uninitialized value, ale tylko w drugim przykładzie given/when. Dlaczego to?

#!/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"; 
    } 
} 

Wyjście pojawia się:

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

Answer 1

given/when wykorzystuje "smartmatch operator": ~~.

undef ~~ string jest:

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

Zatem nie ma tu ostrzeżenie.

undef ~~ regex jest:

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

I ostrzeżenie jest produkowany, gdy próbuje dopasować na undef.

Answer 2

Wywołanie when (EXPR) zwykle jest równe when ($_ ~~ EXPR). I undef ~~ 'string' jest !defined('string'), więc nie otrzymasz ostrzeżenia, ale undef ~~ /regexp/ jest undef =~ /regexp/, więc otrzymasz ostrzeżenie.

Zobacz Switch Statements in perlsyn i Smartmatch Operator in perlop.