神奇的Perl-哈希和数组(6)
声明:本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创,未经笔者授权,任何人和机构不能转载
1.1.1 each、values、keys、sort
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;
我们利用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";
}
推荐阅读