欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

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

程序员文章站 2022-04-29 16:23:55
...

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

1.1.1 eachvalueskeyssort

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";

}

以一段程序为例说明keysvalues的用法:

$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) 综合排序

定义一个子程序,返回10-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";

}

相关标签: Perl