由买买提看人间百态

boards

本页内容为未名空间相应帖子的节选和存档,一周内的贴子最多显示50字,超过一周显示500字 访问原贴
Unix版 - Perl: hash numerical sort
相关主题
[转载] perl: regexhelp! how to do this?
question on Perl关于emacs一问。
perl 新手弱问文件改名一问?
Chinput搞不定了怎么样循环执行一个命令?
请问几个关于Sed的问题manage cisco router
sort problem[转载] Shell高手看过来。
[转载] QUestion about Perlpkgadd on Solaris
Re: how to change all the files .cpp to .C[转载] grep question
相关话题的讨论汇总
话题: hash话题: sort话题: perl话题: value话题: org
进入Unix版参与讨论
1 (共1页)
f***y
发帖数: 98
1
I have a hash like this:
%h = (
org, 51,
com, 7,
gov, 55,
net, 2,
biz, 5
);
How do I print it out with its value numerically sorted? It would look like:
gov 55
org 51
com 7
biz 5
net 2
Any suggestion would be appreciated. Thanks a lot!
b***t
发帖数: 1104
2
foreach $k (sort keys %hash) {
print "$k => $hash{$k}\n";
}

【在 f***y 的大作中提到】
: I have a hash like this:
: %h = (
: org, 51,
: com, 7,
: gov, 55,
: net, 2,
: biz, 5
: );
: How do I print it out with its value numerically sorted? It would look like:
: gov 55

t****t
发帖数: 6806
3
peng! besides, the solution is not correct...

【在 b***t 的大作中提到】
: foreach $k (sort keys %hash) {
: print "$k => $hash{$k}\n";
: }

b***t
发帖数: 1104
4
foreach $value (sort { $h{$a} <=> $h{$b} } keys %h) {
print "$value => $h{$value}\n";
}

【在 t****t 的大作中提到】
: peng! besides, the solution is not correct...
1 (共1页)
进入Unix版参与讨论
相关主题
[转载] grep question请问几个关于Sed的问题
怎么给一个txt里面的email address发邮件?sort problem
Re: 请推荐一本perl book好不好[转载] QUestion about Perl
好马配好鞍/介绍一套linux牛书/O'Reilly Animal BookRe: how to change all the files .cpp to .C
[转载] perl: regexhelp! how to do this?
question on Perl关于emacs一问。
perl 新手弱问文件改名一问?
Chinput搞不定了怎么样循环执行一个命令?
相关话题的讨论汇总
话题: hash话题: sort话题: perl话题: value话题: org