Question

perl中给变量赋值

假如我只想给变量第一次被赋值生效，而之后的赋值都不算怎么写？
$a="abcdefg";
if ($a =~ /a/){$b=1;print $b;}
if ($a =~ /c/){$b=2;print $b;}
if ($a =~ /g/){$b=3;print $b;}
if ($a =~ /h/){$b=1;print $b;}
当然这个变量a的内容是未知的。我只想第一次匹配到就要b的值

Answer 1

#方法一：直接第一句话末尾加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;}

Answer 2

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

Answer 3

用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;
}