perl四列数据哈希处理脚本

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

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

执行结果：

㈡ perl 脚本出错must be hash or array，本人没学过perl，所以请高手指教。详细见补充。

foreach my $param (keys $HTTP->{'param'}) {
括号里面必须是哈希或者数组，数组是@开头，哈希是%开头
看你的脚本，里面应该是数组

㈢ perl脚本如何将哈希排序

1、如果是按ASCII码(字符串)排序，则代码如下：
foreach my $key ( sort { $hash{$a} cmp $hash{$b} } keys %hash ) {
my $value = $hash{$key};
# do something with ($key, $value)
}

2、如果是按数字大小排列，则代码如下：
foreach my $key ( sort { $hash{$a} <=> $hash{$b} } keys %hash ) {
my $value = $hash{$key};
# do something with ($key, $value)
}