1.使用||来建立默认值
$foo = $bar || "DEFAULT VALUE"; #如果$bar没有值的话就使用"DEFAULT VALUE"作为$foo的值.
$dir = shift(@ARGV) || "/tmp"; #如果没有参数,,就返回"/tmp".
$dir = defined($ARGV[0]) ? shift(@ARGV) : "/tmp";
2.shift函数:
移出第一个数组元素,并返回.
3.defined函数:
判断一个变量、数组或数组的一个元素是否已经被赋值。expr为变量名、数组名或一个数组元素。如果已定义，返回真，否则返回假。
4. if和unless
注:if和unless意思相反!
$a = $b if $a; #如果$a为真$a赋值为$b
$a = $b unless $a #如果$a为假$a赋值为$b