perl中给变量赋值

#方法一：直接第一句话末尾加exit，可以达到预期效果，但是整个程序也就退出了。
$a="abcdefg";
if ($a =~ /a/){$b=1;print $b;} exit;
if ($a =~ /c/){$b=2;print $b;}
if ($a =~ /g/){$b=3;print $b;}
if ($a =~ /h/){$b=1;print $b;}

#方法二：用if...elseif，当第一个条件满足时，后面条件不再验证。
$a="abcdefg";
if ($a =~ /a/){$b=1;print $b;}
elsif ($a =~ /c/){$b=2;print $b;}
elsif ($a =~ /g/){$b=3;print $b;}
elsif ($a =~ /h/){$b=1;print $b;}

$b = "赋值" unless $b;
无值则赋值, 有值则掠过

用if...elsif

if ($a =~ /a/){
$b=1;print $b;
}elsif ($a =~ /c/){
$b=2;print $b;
}elsif ($a =~ /g/){
$b=3;print $b;
}elsif ($a =~ /h/){
$b=1;print $b;
}