Sorting and undefined values

[Robin Barker]

My first thought is that there is a typo:
  $foo->{$a}->{'x'} cmp $foo->{$b}->{'x'} ||
  $foo->{$b}->{'y'} cmp $foo->{$b}->{'y'}
         $a?

My second thought is to worry about precendence:
  $foo->{$a}->{'x'} cmp $foo->{$b}->{'x'} or
  $foo->{$a}->{'y'} cmp $foo->{$b}->{'y'}
or
  ($foo->{$a}->{'x'} cmp $foo->{$b}->{'x'}) ||
  ($foo->{$a}->{'y'} cmp $foo->{$b}->{'y'})
?

Robin

-----Original Message-----
From: london.pm-bounces at london.pm.org
[mailto:london.pm-bounces at london.pm.org]On Behalf Of Earle Martin
Sent: 12 December 2006 17:00
To: London Perl Mongers
Subject: Sorting and undefined values


Hello,

I have this code:

my @sorted = sort {
  $foo->{$a}->{'x'} cmp $foo->{$b}->{'x'} ||
  $foo->{$b}->{'y'} cmp $foo->{$b}->{'y'}
} keys %$foo;

This only produces the keys of items where 'x' is defined. What do I
need to do to sort first on 'x' if it's defined, and then on 'y', or
just 'y' if 'x' is undefined?

Thanks in advance,

Earle.

-- 
Earle Martin
            http://downlode.org/
http://purl.org/net/earlemartin/

-------------------------------------------------------------------
This e-mail and any attachments may contain confidential and/or
privileged material; it is for the intended addressee(s) only.
If you are not a named addressee, you must not use, retain or
disclose such information.

NPL Management Ltd cannot guarantee that the e-mail or any
attachments are free from viruses.

NPL Management Ltd. Registered in England and Wales. No: 2937881
Registered Office: Serco House, 16 Bartley Wood Business Park,
                   Hook, Hampshire, United Kingdom  RG27 9UY
-------------------------------------------------------------------