perl入门的一个小例子

来源：互联网发布：天刀淘宝礼包编辑：程序博客网时间：2024/06/10 07:40

今天看了perl书的第一章，感觉perl真是很丰富的语言，博大精深，要掌握的好，真不容易，不过好歹先看懂一个入门的这个小例子，我也是算是有一个好的开始，希望能透过对这门语言的学习，开启一个新的思路。

这个例子是从数据文件grades中读取信息，通过执行average.pl来计算出每个学生的平均成绩。可以实际运行，没用过perl的可以玩一玩。

average.pl:

#!/usr/bin/perl    // 指定perl程序的解释器存放位置
open(GRADES, "grades") or die "Can't open grades: $!\n";   //打开数据文件grades，得到一个文件句柄GRADES，如果不成功，执行die语句，退出程序，注意“or”的用法。
open(GRADES, "grades") and print "open grades successfully!\n";// 如果前一句执行成功，那么执行后一句print，注意“and”的用法。上面这一句是我调试用的，用来练习   “or”和 “and”的真假判断。
   while ($line = <GRADES>) {        // 从文件句柄中读取一行数据，注意如果是空白行也判断为真，所以对于此程序来说，文件中不能有空白行
      ($student, $grade) = split(" ", $line); //将该行数据以空格为分隔符，将两个数值分别存入标量$student和$grade中。
       $grades{$student} .= $grade . " ";   // grades是一个散列，以student为键值，将grade存入散列中，注意“.”的作用是给散列中的数值添加一个新的值，同时再添加一个空格，这个在C语言中是无法理解的。每个student可能会有多个grade，所以散列的数据结构适合存储一对多的关系。
       print "$student: $grades{$student}\n";
   }

   foreach $student (sort keys %grades) {   //将散列grades中的键值进行排序，并且遍历这些键值
      $scores = 0;
      $total = 0;
      @temp_grades = split(" ", $grades{$student}); // 将键值student对应的所有grade取出来存入数组temp_grades中
      foreach $temp_grade (@temp_grades) {  //将数组中的grade进行累加
          $total += $temp_grade;
          $scores++;
      }
      $average = $total / $scores; // 计算出某个student的平均值。
      print "$student: $grades{$student}\tAverage: $average\n"; // 打印出某个student的平均值。
}
~

grades：

Noël 25
Ben 76
Clementine 49
Norm 66
Chris 92
Doug 42
Carol 25
Ben 12
Clementine 0
Norm 66
~