建立一个默认值

建立一个默认值

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