Dotaz: Perl - serazeni hashe

[motorcb]

Zdravim.

Mam nasledujici hash, ktery bych chtel seradit sestupne podle velikosti vzdalenosti. Nevedel by nekdo jak na to??? Diky za kazdou radu

#!/usr/bin/perl

%vzdalenosti = (
"Amsterodam" => 970,
"Moskva" => 1900,
"Koda" => 750,
"Rim" => 1300,
"Varsava" => 630,
);


while (($mesto, $vzdalenost) = each(%vzdalenosti)){
print "$mesto - $vzdalenost\n";
}

Odpovědi

[myšák]

Myslíte takhle nějak?

#!/usr/bin/perl -w


sub hashComp {
   $vzdalenosti{$a} <=> $vzdalenosti{$b};
}

%vzdalenosti = (
"Amsterodam" => 970,
"Moskva" => 1900,
"Koda" => 750,
"Rim" => 1300,
"Varsava" => 630,
);


foreach $key (sort hashComp (keys(%vzdalenosti))) {
   print "$key - $vzdalenosti{$key}\n";
}

[wamba]

use warnings;
use strict;
use 5.010;

my %vzdalenosti = (
    'Amsterodam' => 970,
    'Moskva'     => 1900,
    'Koda'       => 750,
    'Rim'        => 1300,
    'Varsava'    => 630,
);

my @serazena_mesta =
  sort { $vzdalenosti{$b} <=> $vzdalenosti{$a} } keys %vzdalenosti;

foreach my $mesto (@serazena_mesta) {
    say "$mesto - $vzdalenosti{$mesto}";
}

[buff]

RTFM perlfaq: How do I sort a hash?

[VM]

map {print "$_ - $vzdalenosti{$_}\n";} sort {$vzdalenosti{$a} <=> $vzdalenosti{$b}} keys %vzdalenosti;

(keys vybere jmena mest, sort seradi dle vzdalenosti, map print vypise)