今天看到这样一段代码：

if (    not defined($reply_address) 
     or not defined($from_name) 
     or not defined($subject) 
     or not defined($date) )
{ 
  die "couldn’t glean the required information!"; 
}

（Jeffrey Friedl，“掌握正则表达式”，第 59 页，第 3 版。）

我想“我怎么知道哪个变量没有触发？”

当然，如果只有 4 个变量要测试，如上例所示，可以想出：

if ( not defined $reply_address ) 
{ 
  die "$reply_address is not defined" 
}
elsif ( not defined $from_name )
{
  die "$from_name is not defined"
}
elsif ...

但是如果有 14 个变量呢？还是40……？还需要遍历所有这些，手动测试每一个？

难道没有一种更短、更“神奇”的方式来告诉哪个变量未定义？

回答

use strict;
use warnings;

my $reply_address = "xyz";
my $from_name;
my $subject = "test";
my $date;

my @checks = (
    [$reply_address, '$reply_adress'],
    [$from_name, '$from_name'],
    [$subject, '$subject'],
    [$date, '$date'],
);

for my $check (@checks) {
    if (not defined ${$check->[0]}) {
        die $check->[1] . " is not defined";
    }
}