On 12/2/06, Sergio Escalada <[EMAIL PROTECTED]> wrote:
The purpouse of this mini-script is to list the rows from a database loaded
in memory ($ref_db is the reference to hashtable
Another idea -
sub sortrows {
my $sorted = @_;
$sorted = -(($a->{ahash} eq 'x') <=> ($b->{ahash} eq 'x')) if $sorted == 0;
$sorted = (lc($a->{string}) cmp lc($b->{string})) if $sort == 0;
$sorted;
}
foreach $row (sort sortrows @$rows) {
... blah blah ...
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
