Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (asf.osuosl.org: local policy)
Message-ID: <005501c6bf56$5e4c7700$6601a8c0@clarkconnect.lan>
From: "Mike OK" <mike_tmp@acorg.com>
To: <modperl@perl.apache.org>
References: <5cb4d9a00608101331k1d6a963cyace095ac2a764bf0@mail.gmail.com>
 <002401c6bdb0$81ae37d0$0201a8c0@homeyr0btzmjk1>
 <002301c6beed$b8375b40$6601a8c0@clarkconnect.lan>
Subject: Re: Sort issue
Date: Mon, 14 Aug 2006 00:01:49 -0400
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

After a few off list hints and hours of searching and reading I have solved
the issue.  Here is the link to the page I found helpful.  Very belated
thanks (almost 6 years) goes to Stas Bekman.  Mike

http://www.gossamer-threads.com/lists/modperl/modperl/35645?search_string=so
rt%20subroutine;#35645


----- Original Message -----
From: "Mike OK" <mike_tmp@acorg.com>
To: <modperl@perl.apache.org>
Sent: August 13, 2006 11:32 AM
Subject: Sort issue


> Hi
>
>      I would like to do some custom sorting with some hash data that I
have
> stored.  It will be used in a mod_perl application so I would like to
ensure
> that the variables are safe and local.  My worry is that I plan to call a
> subroutine with sort but I have no idea how to pass the variables or if I
> even have to.  Here is what I am planning.  Any advice or links would
help.
> Thanks a lot.  Mike
>
> @sortedkeys = sort by_field keys(%names);
>
> sub by_fields {
>    my ($first_compare,$first_extra) = $names{$a};
>    my ($second_compare,$second_extra) = $names{$b};
>    ### I am spliting the value to sort on a secondary field other than the
> key
>    ($first_compare <=> $second_compare || $first_extra <=> $second_extra);
> }
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.405 / Virus Database: 268.10.7/411 - Release Date: 2006-08-07
>
>