NetNews Usenet Archive 1992 #31/NN_1992_31.iso/spool/comp/lang/perl/7599

Text File | 1992-12-23 | 1.3 KB | 43 lines

Newsgroups: comp.lang.perl
Path: sparky!uunet!noc.near.net!meiko.com!mike
From: [e-mail] (Mike Stok)
Subject: Re: Looking for a "numerical/alpha" sort routine.
Message-ID: <[e-mail]>
Sender: [e-mail]
Organization: Meiko Scientific Corp.
References: <[e-mail]>
Date: Wed, 23 Dec 1992 21:37:58 GMT
Lines: 31

In article <[e-mail]> [e-mail] (Jesse Buckley) writes:
>Does anyone have a sort/compare routine that will work for numerical
>alpha data?  For example, if I have 1, 2, 3a, 3b, 3c, I want them sorted
>that way.  Right now the <=> compare ignored the letters after the
>numbers.  Thanks.

You could try something like this, though pattern matching each time
you do the comparison may be heavy on cpu...

#!/usr/bin/perl

foreach $element (sort mySort ('1', '2', '3', '2', '1a', '2b',
                   '5c', '1d', '1b', '1e', '2a', '7'))
{
  print "$element\n";
}

sub mySort
{
  local ($aNum, $aLet) = ($a =~ /(\d+)([a-z]*)/);
  local ($bNum, $bLet) = ($b =~ /(\d+)([a-z]*)/);

  $aLet cmp $bLet unless $aNum <=> $bNum;
}

Mike
--
The "usual disclaimers" apply.    |
Mike Stok                         |
[e-mail]                    |
Meiko tel: [phone]         |