别着急，坐和放宽
$var//=2：等价于 defined($var)||2，即 未定义 时才赋值为 2 ，否则不变（ 即使是 0或 空字符串 ）$var||=2 ：除非定义且为 true 才不会赋值，否则赋值（比如 0 或 空字符串 时）为2。$var='';
$var//=2;
print "'$var'\n";
# perl atest4.pl
''
$var=0;
$var//=2;
print "'$var'\n";
# perl atest4.pl
'0'
$var=1;
$var//=2;
print "'$var'\n";
# perl atest4.pl
'1'
$var=undef;
$var//=2;
print "'$var'\n";
# perl atest4.pl
'2'
$var='';
$var||=2;
print $var;
# perl atest4.pl
2
$var=0;
$var||=2;
print $var;
# perl atest4.pl
2
$var=1;
$var||=2;
print $var;
# perl atest4.pl
1
$var=undef;
$var||=2;
print $var;
# perl atest4.pl
2