最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

perl常量、多維數(shù)組及變量的初始化的實例代碼

 更新時間:2013年02月09日 20:33:18   作者:  
perl常量、多維數(shù)組及變量的初始化的例子,供大家學(xué)習參考

例1:

復(fù)制代碼 代碼如下:

#!/usr/bin/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:

復(fù)制代碼 代碼如下:

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獲得參數(shù)后要檢測是否定義,如果么有定義考慮給予默認值。

相關(guān)文章

最新評論

永平县| 玛纳斯县| 和静县| 万载县| 布尔津县| 马关县| 建德市| 东辽县| 天祝| 乌鲁木齐市| 太白县| 内丘县| 海晏县| 铜川市| 晴隆县| 淮阳县| 肃宁县| 剑川县| 江油市| 广安市| 门头沟区| 财经| 延吉市| 星座| 汝州市| 邢台市| 安康市| 昌图县| 龙胜| 上林县| 鄂尔多斯市| 江口县| 舒城县| 乃东县| 海淀区| 遂平县| 西充县| 武山县| 鄂伦春自治旗| 广河县| 阜平县|