home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / perl / 5321 < prev    next >
Encoding:
Internet Message Format  |  1992-08-14  |  2.2 KB
  1. Path: sparky!uunet!charon.amdahl.com!pacbell.com!network.ucsd.edu!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: perl sort bug on Irix?
  5. Message-ID: <1992Aug14.163959.17905@netlabs.com>
  6. Date: 14 Aug 92 16:39:59 GMT
  7. References: <93641@bu.edu>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 37
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <93641@bu.edu> jdh@bu-pub.bu.edu (Jason Heirtzler) writes:
  14. : Perl's sort seems to behave oddly on Irix.  What I would like
  15. : to do is an inverse sort based on the length.  Is this program
  16. : correct perl (ie. not some implementation dependant thing?)
  17. : 
  18. :   #!/usr/local/bin/perl --    # -*-Perl-*-
  19. : 
  20. :   push( @dirs, "usr" );
  21. :   push( @dirs, "usr/bin" );
  22. :   push( @dirs, "usr/bin/X11" );
  23. :   push( @dirs, "usr/lib" );
  24. : 
  25. :   @crud =  sort {length($a) < length($b);} @dirs;
  26.  
  27. Using < only gives a two state answer (0 and 1).  Sort subroutines need
  28. to supply a three state answer (<0, 0, >0).  It just so happens :-)
  29. that there's now a <=> operator (called the spaceship operator for
  30. reasons that will be obvious to anyone who's seen Star Wars) that
  31. returns (-1,0,1).  So the preferred solution in recent Perls would be
  32.  
  33.     @crud = sort { length($b) <=> length($a) } @dirs
  34.  
  35. (Note that we reverse $a and $b to reverse the ordering, since the spaceship
  36. operator only orders in the ascending direction.  (Likewise for "cmp", which
  37. orders strings rather than numbers.))
  38.  
  39. : What is the appropriate way to do the same sort on previous
  40. : releases?  At patch level 10 perl bawks at the sort syntax
  41. : (guess it's new syntax.)
  42.  
  43. Well, hey, if you can invent a nifty new work like "bawk"...  :-)
  44.  
  45. As you switch to progressively older versions, you'd have to supply a
  46. semicolon at the end of the block, remove the block into a separate
  47. subroutine definition, and change the spaceship operator to a minus.
  48.  
  49. : "Congratulations.  You aren't running Eunice."
  50.  
  51. In actual fact, I have nothing much against Eunice.  I think the WG did
  52. remarkably well considering the host environment.
  53.  
  54. You can verify this by looking at the other leg of the conditional in
  55. Configure.  If you ARE running Eunice, it's not Eunice that Configure
  56. complains about.
  57.  
  58. Larry
  59.