perl语言创建一个哈希列表，输入一个人的名字就能输出对应成绩

在Perl中，你可以使用`%hash`结构（哈希列表）来存储名字和成绩这样的键值对数据。下面是一个简单的例子，展示如何创建并操作这样的哈希：

#!/usr/bin/perl
use strict;
use warnings;

# 创建一个空的哈希
my %student_scores = ();

# 添加学生姓名和成绩
$student_scores{'Alice'} = 90;   # Alice 的成绩是 90 分
$student_scores{'Bob'} = 85;     # Bob 的成绩是 85 分

# 打印函数，输入名字获取成绩
sub get_score {
    my ($name) = @_;
    if (exists $student_scores{$name}) {
        return $student_scores{$name};
    } else {
        print "Sorry, no score for $name.\n";
        return;
    }
}

# 输出某个学生的成绩
print "Alice's score is: ", get_score('Alice'), "\n";

# 输出其他学生的成绩
print "Bob's score is: ", get_score('Bob'), "\n";

在这个例子中，我们首先声明了一个名为`student_scores`的哈希，并通过名字作为键添加了对应的分数。然后定义了一个名为`get_score`的子程序（匿名函数），它接收一个名字作为参数，如果这个名字在哈希中存在，就返回相应的成绩；反之则显示一条错误消息。

如果你想查询一个不存在的名字的成绩，就会看到提示信息而不会得到结果。运行此脚本，你会看到类似这样的输出：

Alice's score is: 90
Bob's score is: 85