2013年1月1日
perl hash按照value排序打印
摘要： #!/usr/bin/perl -wuse strict;my %hash = ( a => 3, b => 1, c => 4);map{ print "$_ => $hash{$_}\n"} sort{ $hash{$b} <=> $hash{$a} } keys %hash; 阅读全文
posted @ 2013-01-01 21:21 Arya_yu 阅读(230) 评论(0) 推荐(0) 编辑