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

wtuyss

声明：本神奇的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";
}