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