Question

我在《佩勒法典》的中间点就这样说,我发现自己写下一条法典线的恶魔。即便如此,也没有什么捷径,也只有比这一权利更好的途径?

因此,有更好的办法:

unless($config->{ case_transform } eq  NONE  || 
       $config->{ case_transform } eq  UPPER  ||
       $config->{ case_transform } eq  LOWER  ||
       $config->{ case_transform } eq  CAPITAL  ||
       $config->{ case_transform } eq  RANDOM )
{
    $config->{ case_transform } =  NONE ;
}

Answer 1

也可获得“Smart/61/3/a>营运人~~。



use 5.010;

$config->{ case_transform } =  NONE  
    unless $config->{ case_transform } ~~
        (  NONE ,  UPPER ,  LOWER ,  CAPITAL ,  RANDOM  );

Answer 2

my %good_value = map { $_ => 1 } qw( NONE UPPER LOWER CAPITAL RANDOM );

unless $good_value{$config->{case_transform}) {
    $config->{case_transform} =  NONE ;
}

Answer 3

unless ($config->{ case_transform } =~ /^(NONE|UPPER|LOWER|CAPITAL|RANDOM)$/)
{
  ...
}

Answer 4

$config->{ case_transform } =  NONE  unless $config->{ case_transform } =~ /^(?:UPPER|LOWER|CAPITAL|RANDOM)$/;

友情链接