#!/usr/bin/perl
# 脚本名称 data_to_hash.pl
# 将两列数据存入文件data.txt中，执行时跟脚本放在同一个目录
use strict;
# 定义哈希
my %hash_data;
# 打开文件
open(FL,"data.txt");
#读文件
while()
{
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";
}
执行结果：
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024