关于散列读取文件

khandielas

UID: 1557
帖子: 117
积分: 269
在线时间: 19 小时

21^# khandielas 发表于 2008-08-28 01:06

QUOTE:

原帖由 ly5066113 于 2008-8-27 13:15 发表

很明显不对，90分的有2个。

是，忘了score可以不是unique的，需要象churchmice那样sort value

#!/usr/bin/env perl
use strict;

local $/;
$_ = <>;
s/[A-Za-z]+//g;
my %chengji = split;
print "$_ $chengji{$_}\n" foreach ( ( sort { $chengji{$b}<=>$chengji{$a} } keys %chengji)[0..4] );

./test_hash.pl chengji.log
6 99
2 90
5 90
1 88
3 85

doiob

UID: 20086
帖子: 106
积分: 243
在线时间: 15 小时

22^# doiob 发表于 2008-08-28 14:05

感觉lz和那位面试时say "my special long is fuck do computer"的高人有一拼。

sheenshine

UID: 28388
帖子: 1
积分: 2
在线时间: 10 分钟

23^# sheenshine 发表于 2008-08-28 14:41

QUOTE:

原帖由 doiob 于 2008-8-28 14:05 发表
感觉lz和那位面试时say "my special long is fuck do computer"的高人有一拼。

差点没看懂，你怎么听懂的。。。。

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

24^# hitsubunnu 发表于 2008-08-28 15:36

[Copy to clipboard] [ - ]

CODE:

print sort {(split(/ /,$b))[1] <=> (split(/ /,$a))[1]} <DATA>;

__END__
1 88
2 90
3 85
4 70
5 90
6 99
7 85
8 65
9 70
10 66

[Copy to clipboard] [ - ]

CODE:

6 99
2 90
5 90
1 88
3 85
7 85
4 70
9 70
10 66
8 65

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

25^# churchmice 发表于 2008-08-28 15:43

QUOTE:

原帖由 hitsubunnu 于 2008-8-28 15:36 发表

print sort {(split(/ /,$b))[1] (split(/ /,$a))[1]} ;

__END__
1 88
2 90
3 85
4 70
5 90
6 99
7 85
8 65
9 70
10 66

6 99
2 90
5 90
1 88
3 85
7 85
4 70
9 70
10 6 ...

甚为拉风

easyworld

UID: 13441
帖子: 145
积分: 333
在线时间: 1 天 4 小时

26^# easyworld 发表于 2008-08-28 15:57

QUOTE:

原帖由 churchmice 于 2008-8-28 15:43 发表

甚为拉风

新人看的要抽风,想理解不容易啊,努力学习啊

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

27^# cobrawgl 发表于 2008-08-28 16:57

my special long is fuck do computer

xiaoyu9805119

UID: 39268
帖子: 67
积分: 154
在线时间: 6 小时

28^# xiaoyu9805119 发表于 2008-08-28 17:07

都挺牛b的，呵呵

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

29^# hitsubunnu 发表于 2008-08-28 17:21

QUOTE:

say "my special long is fuck do computer"

俺の特長はパソコンをファックすることだ

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

30^# forlorngenius 发表于 2008-08-28 20:07

这fuck语写得好长啊