sort by field

sub ps{
my @c = `ps aux`;
my $dis = shift @c;
@c = map { $_->[0] } #whole line
sort {
$a->[1] <=> $b->[1] #by memory
}
map { chomp; [$_,(split)[3] }
`ps aux`
}

恩
google到的一个技巧，这样可以通过在str中的某个字段排序