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 Fore! perl -nalF'\|' -e '($u,$l,$f)=@F;$x=($f?($l?"$l, $f":$f):$l)||$u;$y=lc$x;$h{$y}=$x;push@x,$y;END{print$h{$_}for sort@x}' >So the desired result is: > >est >Evans >Evans, Anne >Evans, Helen >Evans, Louise >Peter >rwj >Sanchez ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe