神奇的Perl-哈希与数组(2)

q666123

声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载
1.1         哈希内插哈希

很多情况下，需要几层哈希来存储一个数据表，比如以下学生成绩表:

姓名	物理	化学	数学
张三	85	79	90
李四	77	96	79
王五	86	81	93

这个成绩表需要2层哈希，所谓哈希内插哈希。第1层哈希存储行，即学生姓名。第2层哈希，存储每行的信息，即学生的每门成绩。2层哈希如何结合起来存储学生成绩表，并提供相关访问呢？
首先，我们来解决存储问题。
#第1层哈希
my %student;
#第2层哈希
%student=(
  “张三”=>{“物理”=>85,“化学”=>79,“数学”=>90},
  “李四”=>{“物理”=>77,“化学”=>96,“数学”=>79},
  “王五”=>{“物理”=>86,“化学”=>81,“数学”=>93},
);
　　在上述代码中，%student由3个键组成：张三、李四、王五，与这些键相关的值则位于花括号中，并含有嵌套的哈希（即：键值对）。张三键的相应值中含有3个嵌套的键：物理、化学、数学，其值分别是85、79、90。
李四键的相应值中含有3个嵌套的键：物理、化学、数学，其值分别是77、96、79，王五也同理。
   上述代码还可写成：
 

 
#第1层哈希
my %student;
#第2层哈希
$student{“张三”}={“物理”=>85,“化学”=>79,“数学”=>90};
$student{“李四”}={“物理”=>77,“化学”=>96,“数学”=>79};
$student{“王五”}={“物理”=>86,“化学”=>81,“数学”=>93};
其次，访问这2层哈希，比如访问王五同学的数学成绩：
第一种方式：
print $student{“王五”}{“数学”};
第二种方式:
my $studentreport=$student{“王五”};#取得第一层HASH
print ${$studentreport }{“数学”};#访问第二层HASH
总结以上方式形成以下2个程序：
1)     perl3-2.pl:
#perl3-2.pl
#第1层哈希
my %student;
#第2层哈希
%student=(
  "张三"=>{"物理"=>85,"化学"=>79,"数学"=>90},
  "李四"=>{"物理"=>77,"化学"=>96,"数学"=>79},
  "王五"=>{"物理"=>86,"化学"=>81,"数学"=>93},
);
print $student{"李四"}{"化学"};
2)     perl3-3.pl:
#perl3-3.pl
#第1层哈希
my %student;
#第2层哈希
$student{"张三"}={"物理"=>85,"化学"=>79,"数学"=>90};
$student{"李四"}={"物理"=>77,"化学"=>96,"数学"=>79};
$student{"王五"}={"物理"=>86,"化学"=>81,"数学"=>93};
#访问
my $studentreport=$student{"王五"};
print ${$studentreport}{"物理"};
 
 
　　其实还有第3种方法，通过PERL的硬引用操作符\完成内嵌哈希的赋值。改写以上代码如下：
#第1层哈希
my %student;
#第2层哈希
   my %cj=("物理"=>85,"化学"=>79,"数学"=>90);
   $student{"张三"}=\%cj;  
   my %cj=("物理"=>77,"化学"=>96,"数学"=>79);
   $student{"李四"}= \%cj; 
   my %cj=("物理"=>86,"化学"=>81,"数学"=>93);
   $student{"王五"}=\%cj;  
#访问

my $studentreport=$student{"王五"};
print ${$studentreport}{"物理"};
 
 
　　1.     数组

 
3.1 列表
列表是标量的有序集合，但不能把列表看成一个变量，数组才是变量，数组中存储
列表。
列表的构造方法有以下2种：
1)  (元素1,元素2，元素3)
构造由 3个元素组成的列表。元素类型可以不一致，比如： （‘abc’,123,’xyz’） 
2)  qw(字符串 1   字符串 2   字符串3)
构造由 3个字符串组成的列表，做为列表元素的字符串，不必加上引号，且以
空格隔开。 qw构造的列表， Perl会将其中元素视为加上单引号的字符串， 比如： 
qw(abc   xyz)
qw构造中的()实际为定界符，如果你愿意，也可以写成：
qw/abc xyz/            以“/”为定界符
数组声明与赋值

数组声明格式如下：
my  @数组变量名;
数组赋值格式如下：
@数组变量名=(元素1，元素2，元素3，…,元素n);
比如，声明学生姓名数组：
my @student;
@student=(“李明”,”张亮”,”王波”,”李安”);
那么对于二维数组，如何处理呢？ 比如，一段曲线坐标点集合，可如下声明赋值：
my  @coordinate;
@coordinate=(
[1.2,3.4],
[1.3,3.2],
[1.6,3.9]
);
数组不要求其元素的数据类型一致，以下赋值方式是合法的：
my @myinfo=(“李四”,“湛江”，”广东”,26,198.22);
对于范围数组的赋值，使用“起点..终点”的格式
比如，赋值元素是从0到10。
my @mynum=(0 .. 10);
my @myalpha=(‘a’ .. ‘z’);
my @myalpha=(‘A’ .. ‘Z’);
 
数组元素访问和修改

语法格式如下：
$数组变量名[下标]
其中下标从0开始计数。
例如：
my @mynum=(0 .. 10);
print $mynum[3];#访问数组元素
$mynum[3]=100;#修改数组元素
print $mynum[3];#输出修改后的数组元素
输出结果如下：
3
100