Re^2: Golf: reverse sort /etc/passwd by UID


No such thing as a small change
	PerlMonks

Re^2: Golf: reverse sort /etc/passwd by UID

by tobyink (Abbot)

on Feb 06, 2013 at 14:30 UTC ( #1017446=note: print w/replies, xml )

Need Help??

in reply to Re: Golf: reverse sort /etc/passwd by UID
in thread Golf: reverse sort /etc/passwd by UID

Nice trick with split. Can be improved somewhat...

#                1         2         3         4
#       1234567890123456789012345678901234567890123
perl -e'print sort{@x=split":",$a.$b;$x[8]-$x[2]}<>' /etc/passwd
[download]

Or even:

#                1         2         3         4
#       123456789012345678901234567890123456789012
perl -e'print sort{(@x=split":",$a.$b)[8]-$x[2]}<>' /etc/passwd
[download]

Update: or with a sufficiently outdated Perl...

#                     1         2         3         4
#            1234567890123456789012345678901234567890
perl5.8.9 -e'print sort{split":",$a.$b;$_[8]-$_[2]}<>' /etc/passwd
[download]

(split in void context was deprecated in 5.10 and dropped in 5.12 IIRC.)

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

Comment on Re^2: Golf: reverse sort /etc/passwd by UID Select or Download Code

Replies are listed 'Best First'.
Re^3: Golf: reverse sort /etc/passwd by UID by MidLifeXis (Monsignor) on Feb 06, 2013 at 14:31 UTC
D'oh :-) Also, 41 using say. Update: Nice: 40? Update 2: Beat me to the punch on scalar `split` and @_ :-) --MidLifeXis	[reply] [d/l]

In Section Meditations

Node Status^?

node history
Node Type: note [id://1017446]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others lurking in the Monastery: (3)

As of 2018-09-19 23:03 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?

(Sep 10, 2018 at 22:53 UTC) Welcome new users!