perl常量+多维数组+变量的初始化

代码：

 

use  strict; 
use warnings;

my  $test =  " asdf ";
print  " ${test}_test2\n ";

# constant
use constant {
    AAA =>  " aaa ",
    BBB=>  " bbb ",
    MIN_TOTAL =>  12,
    SCORE_PASS =>  90,
    SCORE_RED =>  70,
};

print AAA;
print SCORE_PASS;

# two dimesion arrays
my  @steps = (
      [ " aaa ",  " aaavalue "],
      [ " bbb ", " bbbvalue "],
      [ " ccc ", " cccvalue "]
);
print  " \n ";
foreach  my  $i ( 0 .. $ # steps){
   print  " $steps[$i][0]:$steps[$i][1]\n ";
}

 

代码2：

my  $a1;
print  " $a1\n ";
my  $a2 =  undef;
print  " $a2\n ";
if(! defined( $a1)){ print  " a1 is not defined\n ";}
if(! $a2){ print  " a2 is not defined\n ";}
my  $a3= '';
if (! $a3 ){ print  " a3 is empty string\n " ;}  

在定义变量时一定要初始化，或者在使用时判断是否defined，很多的时候还需要判断是否为空字符串。 特别是在使用getopt::long或cgi->query获得参数后要检测是否定义，如果么有定义考虑给予默认值。

 

完！