神奇的Perl-哈希和数组(6)

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

1.1.1 each、values、keys、sort

1、 each

each一般作用于哈希和数组，以2元素的列表形式返回哈希的键值对和数组的索引、值对。语法如下：
    each %hash

each @array

比如：

 while (($key, $value) = each %hash) {#$key取得键，$value取得值

 print  “$key:$value\n";

     }

while (($index, $value) = each @array) {#$index取得索引，$value取得值

        print  "$index:$value\n";

}

2、 values

values函数以列表形式返回哈希和数组的所有值。语法如下：

values %hash

values @array

比如：

for  $value(values %hash)

{ #输出hash的所有值(注意不是健值对)。

print “$value\n”;

}

3、 keys

keys函数以列表形式返回哈希和数组的所有健。语法如下：

keys %hash

keys @array

比如：

for  $key(keys %hash)

{ #输出hash的所有键(注意不是健值对)。

   print "$key\n";

}

以一段程序为例说明keys和values的用法：

$hash{A}=0;

$hash{B}=1;

$array[0]="a";

$array[1]="b";

for  $value(values %hash)

{ #输出hash的所有值(注意不是健值对)。

   print "$value\n";

}

for  $key(keys %hash)

{ #输出hash的所有键(注意不是健值对)。

   print "$key\n";

}

for  $value(values @array)

{ #输出数组的所有值，注意不是索引、值对)。

   print "$value\n";

}

for  $index(keys @array)

{ #输出数组的所有索引，注意不是索引、值对)。

   print "$index\n";

}

输出结果如下：

0

1

A

B

a

b

0

1

 

4、     sort

sort实现对列表排序后返回列表，主要有以下几种用法：

1） sort列表

按普通字符串比较排序.比如：

my @myarr;

@myarr= sort @myarr;

2) sort 子程序名 列表

如果使用了子程序名，可以实现自定义排序，主要分为数字排序、字符串排序和综合排序。$a和$b代表需要比较列表的2个元素。

首先编写排序用函数。

A) 数字排序

sub by_number{$a<=>$b};#<=>是飞碟操作符，比较2个数字返回-1,0,1

B) 字符串排序

sub by_str{$a cmp $b};

C) 综合排序

定义一个子程序，返回1、0、-1。经过子程序判断，第一个参数($a)位于第二个参数($b)之前，返回-1,否则返回1,如果顺序不分先后，返回0。

sub by_num{#定义一个数字升序排序

  if ($a<$b) {-1} elsif ($a>$b) {1} else {0};

}

 

 

 

然后实施排序，以数字排序为例。

my @myarr;

@myarr= sort by_number @myarr;

1.1.2 完成第三个任务

我们利用sort排序完成内嵌哈希值的排序

哈希排序利用

#perl3-6.pl

use strict;

use warnings;

use 5.010;

my  %po;

open PINFO,"<perl3-5.txt";

#从perl3-5.txt文件中读成员的姓名及城市信息

foreach my $pinfo(<PINFO>){

         chomp($pinfo);

         my  %info;

      (my $name, my $jd1,my $jd2,my $jd3,my $jd4)=split('\t',$pinfo);

      $info{jd1}= $jd1;

      $info{jd2}= $jd2;

      $info{jd3}= $jd3;

      $info{jd4}= $jd4;

      $info{all}= $jd1+$jd2+$jd3+$jd4;

      $po{$name}=\%info;

}

 

foreach my $key (reverse sort {${$po{$a}}{all}<=>${$po{$b}}{all}} keys %po){

    print "$key=>${$po{$key}}{all}\n";

}