作者onizi1224 (Onizi)
看板Perl
标题Re: [问题] perl 排序
时间Thu Jan 31 10:55:23 2008
※ 引述《markpci (markpci)》之铭言：
: 我现在有个文字档，文字档格式为:
: aaa 0.154
: bbb 0.235
: ccc 0.485
: ddd 0.365
: 我想将上述资料档做排序，然後取最大值出来跟每一列相除，
: 结果为:
: aaa 0.485 1 (0.485/0.485)
: bbb 0.365 0.8(0.365/0.485)
: ccc 0.235 0.5(0.235/0.485)
: ddd 0.154 0.3(0.154/0.485)
: 请问要如何做呢???
可以先做hash 例如 $key = aaa
$hash{$key} = '0.154'
丢入hash後 用foreach 将hash 的ker 用sort排序以後列印出来
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.67.151.50