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)
}