今天看了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
~