được cung cấp/khi có giá trị không xác định

Question

Trong mã sau, tôi nhận được cảnh báo uninitialized value, nhưng chỉ trong ví dụ given/when thứ hai. Tại sao điều này?

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

Kết quả tôi nhận được là:

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

Answer 1

given/when sử dụng "smartmatch operator": ~~.

undef ~~ string là:

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

Như vậy không có cảnh báo ở đây.

undef ~~ regex là:

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

Và một cảnh báo được tạo ra khi cố gắng để phù hợp trên undef.

Answer 2

Gọi when (EXPR) thường bằng when ($_ ~~ EXPR). Và undef ~~ 'string' là !defined('string') để bạn không nhận được cảnh báo, nhưng undef ~~ /regexp/ là undef =~ /regexp/ để bạn nhận được cảnh báo.

Xem Switch Statements in perlsyn và Smartmatch Operator in perlop.