perl - 从 perl 文件中的文本中提取和存储键值对中的值

Question

我有一个文本文件，其中包含如下信息:

name=A
class=B
RollNo=C

我想提取 perl 脚本中的值

key(name) = value(A)
key(class) = value(B)
key(RollNo) = value(C)

键应该作为具有值的变量导出。每当我们打字

print $name

输出应该是'A'
我试过了:

open my $fh, '<', $file_name
  or die "Could not open sample.txt: $!";
my @lines = <$fh>;

my %hash;
while (<@lines>) {
    chomp;
    my ($key, $value) = split /=/;
    next unless defined $value;
    $hash{$key} = $value;
}
print %hash;

Answer 1

您的代码看起来很不错，到目前为止您所做的大部分工作都有效。
最后，你运行 print %hash这并没有给你你所期望的。这会将散列中的键和值“展开”到一个列表中并打印该列表。所以你可以打印出所有的键和值。
如果您只需要一个值(例如，与“name”键关联的值)，则只需打印该值。

print $hash{name};

这就是你要找的吗？