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

itech_001

于 2013-03-24 19:40:10 发布

阅读量689

点赞数

CC 4.0 BY-SA版权

分类专栏： perl

本文链接：https://blog.youkuaiyun.com/itech_001/article/details/8714110

perl 专栏收录该内容

36 篇文章

订阅专栏

本文介绍了Perl中变量的定义与初始化方法，展示了如何使用数组进行数据存储，并通过示例讲解了常量的作用及如何判断变量是否已定义或为空字符串。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码：

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获得参数后要检测是否定义，如果么有定义考虑给予默认值。

完！