perl 排序问题【实例求教】

DQP

UID: 22959
帖子: 5
积分: 11
在线时间: 10 分钟

11^# DQP 发表于 2008-12-15 23:23

原来MMMIX殿下在指导LZ。。。

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

12^# MMMIX 发表于 2008-12-16 00:04

QUOTE:

原帖由 DQP 于 2008-12-15 23:23 发表
原来MMMIX殿下在指导LZ。。。

我就是凑凑热闹，谈不上指导

adminsinx

UID: 18793
帖子: 56
积分: 128
在线时间: 4 小时

13^# adminsinx 发表于 2008-12-16 14:09

QUOTE:

原帖由 DQP 于 2008-12-15 22:13 发表
按月份

print map {$_->[1]}
sort {$a->[0]  $b->[0]}
map {[(split)[0],$_]} ;
__DATA__
200809       74889999       3.0       6.6       188
200810       74885444       4.0    ...

DQP 能否帮我们这些初学者解释一下这个程序呢？
thank you！

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

14^# MMMIX 发表于 2008-12-16 15:08

QUOTE:

原帖由 adminsinx 于 2008-12-16 14:09 发表

DQP 能否帮我们这些初学者解释一下这个程序呢？
thank you！

什么地方看不懂？map or sort 的使用？那么 perldoc -f map or perldoc -f sort
不了解 Perl 的 slice？那么 perldoc perldata 然后搜索 slice

__DATA__ 在 perldata 中也有解释