Perl——实现分类和排序

Perl——实现分类和排序

正如伟大的哲学家他山之石所说，90%的perl用于数据处理，10%用于其他。
数据的分类和排序是数据处理最基本也是最重要的操作。
文中相关基础知识参见链接Perl——对数组array和哈希数组hash array的操作

一、问题描述

如下所示，有一个名位score.txt的文件，里面存放着同学们的名字和成绩。要求将数据分为及格的同学和不及格的同学，存放在两个数组中passing_list和failing_list,并且要求按照学生成绩从高到低进行·1排列。

二、脚本思路和实现

脚本思路分为以下几步：
①读入数据

open IN,'<','score.txt'; #以句柄形式打开文件

②分成及格和不及格两类

my %passing_list,%failing_list;
while(<IN>