perl 文本内容转hash数组

最新推荐文章于 2024-07-06 09:07:56 发布

scan724

最新推荐文章于 2024-07-06 09:07:56 发布

阅读量1.6k

点赞数

分类专栏： zj-脚本

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/50338119

版权

zj-脚本专栏收录该内容

93 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

本文展示了如何使用Perl脚本将包含学生分数的文本文件内容转换为Hash数组。通过读取文件并逐行处理，将每行的姓名和分数分配到Hash中，然后输出Hash的内容和特定学生的分数。

摘要由CSDN通过智能技术生成

zjzc01:/root/big# cat grades 
A 70
B 80
C 90
D 50
E 60
F 80
zjzc01:/root/big# cat a7.pl 
open(GRADES, "grades") or die "Can't open grades: $!\n";
 while ($line = <GRADES>) {
 ($student, $grade) = split(" ", $line);
 $grades{$student} = $grade ;
 };
print "\%grades  is :\n";
print %grades;
print "\n";
print "\$grades{A} is $grades{A}\n";
print "\n";
print "\$grades{B} is $grades{B}\n";

zjzc01:/root/big# perl a7.pl 
%grades  is :
F80A70D50C90E60B80
$grades{A} is 70

$grades{B} is 80