Re: [FWP] Sort challenge

[Peter Scott <Peter@PSDT.com>]

At 02:45 PM 2/21/2001 +0100, Lou Hevly wrote:
>Greetings all:
>
>Given the following data:
>
>__DATA__
>ae|Evans|Anne
>le|Evans|Louise
>he|Evans|Helen
>je|Evans|
>pete||Peter
>xs|Sanchez|
>rwj||
>est||
>
>1) If there's a last name, the program should sort first by that and then 
>by the firstname (if there is one);
>2) If no last name, then sort by first name;
>3) If neither last nor first name, then sort by username

Improving my previous score by 19 strokes:

perl -nalF'\|' -e'($u,$l,$f)=@F;push@x,$f?$l?"$l, $f":$f:$l||$u;END{print 
for sort{lc$a cmp lc$b}@x}'

96 characters not counting 'perl '.

>So the desired result is:
>
>est
>Evans
>Evans, Anne
>Evans, Helen
>Evans, Louise
>Peter
>rwj
>Sanchez

--
Peter Scott
Pacific Systems Design Technologies


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe