
平台论坛博客文库

› 论坛 › 程序设计 › Perl › 关于perl中的多重排序。

关于perl中的多重排序。 [复制链接]

清泉一边

小富即安

论坛徽章:: 1

1楼 [报告]

发表于 2014-04-13 22:09 |显示全部楼层

回复 1# felix0608

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

my @datas = map { [split ] } <DATA>;
my @sorts = sort { $a->[0] cmp $b->[0] or $a->[3] cmp $b->[3] } @datas;
print join ("\t", @$_), "\n" foreach @sorts;

__DATA__
a b1 c z
a b555 c7 a
c baa c12 b
b bx c66 b
a ab cz c
c cba ac123 a

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › 关于perl中的多重排序。