dato/se con valore non definito

Question

Nel codice seguente, viene visualizzato un avviso uninitialized value, ma solo nel secondo esempio given/when. Perchè è questo?

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

L'output che ottengo è:

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

Answer 1

given/when utilizza il "smartmatch operator": ~~.

undef ~~ string è:

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

Quindi non v'è alcun avviso qui.

undef ~~ regex è:

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

E un avvertimento viene prodotto quando si cerca di abbinare il undef.

Answer 2

Chiamare when (EXPR) di solito uguale a when ($_ ~~ EXPR). E undef ~~ 'string' è !defined('string') in modo da non ricevere avvisi, ma undef ~~ /regexp/ è undef =~ /regexp/ in modo da ottenere avvisi.

Vedere Switch Statements in perlsyn e Smartmatch Operator in perlop.