perl 如何将两列数放到哈希表里

Question

第一列为键，第二列为对应值
例如把下面两列数建成哈希表，怎么写代码？
3772 0.043
3775 0.112
3776 0.122
3778 0.130
3779 0.129
3780 0.124
3781 0.128
3782 0.145
3783 0.157
3790 0.239
3791 0.250
3792 0.282
3797 0.538
3798 0.604

Answer 1

#!/usr/bin/perl
# 脚本名称 data_to_hash.pl
# 将两列数据存入文件data.txt中，执行时跟脚本放在同一个目录
use strict;
# 定义哈希
my %hash_data;
# 打开文件
open(FL,"data.txt");
#读文件
while(<FL>)
{
    chomp();
    # 空格拆分数据为两列
    my ($dkey,$dval) = split(/\s+/,$_);
    # 存入哈希(相当于为键$dkey赋值$dval)
    $hash_data{$dkey}=$dval;
}
#关闭文件
close(FL);
# 遍历哈希,检验数据是否存进哈希
foreach my $tkey (keys %hash_data){
     print "$tkey = $hash_data{$tkey}\n";
}

执行结果：