How to sort Array with hashref Elements and custom search function (gelöst) - #147765 (Allgemeines zu Perl)

topeg

2011-04-14 18:50

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

lt returns true or false. If you want to do a sort you need three values if one value is smaller, equal or bigger. For strings use cmp for numbers <=>.

Example:

Code (perl): (dl )

@t = ( {b=>1,w=>10},
       {b=>3,w=>30},
       {b=>2,w=>40},
       {b=>7,w=>60},
       {b=>4,w=>70},
       {b=>6,w=>90},
       {b=>5,w=>100});

print "## RAW #####################\n";
pout(@t);

@bb = sort func @t;

sub func{
  return $a->{b} <=> $b->{b};
}

print "## SORTED ##################\n";
pout(@bb);


sub pout
{
  foreach $f1 (@_){
    foreach $f2 (sort keys %$f1){
      print "$f2 $f1->{$f2}\n";
    }
    print "------\n";
  }
}

ps. Your name looks German. This is a forum for German natives, so if possible please use German.