abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 14:33 | Zajímavý software

    Ente je open source služba pro ukládání a sdílení fotografií a videí. Alternativa k výchozím aplikacím od Googlu a Applu. V pátek byly uvolněny zdrojové kódy serveru pod licencí AGPL 3.0 [Hacker News].

    Ladislav Hagara | Komentářů: 0
    dnes 11:55 | Nová verze

    Na čem aktuálně pracují vývojáři GNOME a KDE? Pravidelný přehled novinek v Týden v GNOME a Týden v KDE.

    Ladislav Hagara | Komentářů: 0
    včera 22:33 | Komunita

    Nintendo žaluje Tropic Haze, tj. společnost zastřešující vývoj open source emulátoru přenosné herní konzole Nintendo Switch yuzu (Wikipedie).

    Ladislav Hagara | Komentářů: 1
    včera 13:00 | Nová verze

    Komunita kolem Linuxu From Scratch (LFS) vydala Linux From Scratch 12.1 a Linux From Scratch 12.1 se systemd. Nové verze knih s návody na instalaci vlastního linuxového systému ze zdrojových kódů přichází s Glibc 2.39, Binutils 2.42 a Linuxem 6.7.4. Současně bylo oznámeno vydání verze 12.1 knih Beyond Linux From Scratch (BLFS) a Beyond Linux From Scratch se systemd.

    Ladislav Hagara | Komentářů: 0
    1.3. 22:22 | Upozornění

    Google blokuje Chaty RCS (Rich Communication Services neboli rozšířené komunikační služby) na telefonech s rootnutým Androidem nebo odemčeným zavaděčem [9to5Google].

    Ladislav Hagara | Komentářů: 14
    1.3. 12:22 | Komunita

    Bylo spuštěno hlasování o přednáškách a workshopech pro letošní Installfest, jenž proběhne o víkendu 16. a 17. března v Praze na Karlově náměstí 13. O open source hardwaru bude přednášet Mitch Altman.

    Ladislav Hagara | Komentářů: 1
    1.3. 08:00 | IT novinky

    Počítač NitroPC Pro 2 od společnosti Nitrokey s corebootem Dasharo byl oficiálně certifikován pro Qubes OS verze 4. Qubes OS (Wikipedie) je svobodný a otevřený operační systém zaměřený na bezpečnost desktopu.

    Ladislav Hagara | Komentářů: 1
    1.3. 07:00 | Nová verze

    Mobilní operační systém /e/OS (Wikipedie) založený na Androidu / LineageOS, ale bez aplikací a služeb od Googlu, byl vydán ve verzi 1.20. Přehled novinek na GitLabu.

    Ladislav Hagara | Komentářů: 21
    29.2. 13:00 | IT novinky

    Jednodeskový počítač Raspberry Pi slaví 12 let. Prodej byl spuštěn 29. února 2012 (Wikipedie, 𝕏).

    Ladislav Hagara | Komentářů: 13
    29.2. 12:00 | Nová verze

    Byla vydána verze 3.2 multiplatformního integrovaného vývojového prostředí (IDE) pro rychlý vývoj aplikaci (RAD) ve Free Pascalu Lazarus (Wikipedie). Přehled novinek v poznámkách k vydání. Využíván je Free Pascal Compiler (FPC) 3.2.2.

    Ladislav Hagara | Komentářů: 0
    Steam
     (27%)
     (29%)
     (7%)
     (10%)
     (27%)
    Celkem 73 hlasů
     Komentářů: 0
    Rozcestník

    Dotaz: Perl - serazeni hashe

    5.5.2011 19:18 motorcb | skóre: 12
    Perl - serazeni hashe
    Přečteno: 211×

    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

    5.5.2011 20:32 myšák | skóre: 26 | blog: EmentuX | Ostrava
    Rozbalit Rozbalit vše Re: Perl - serazeni hashe
    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";
    }
    
    Je nesmírně těžké být idiotem, konkurence je obrovská...
    wamba avatar 5.5.2011 20:55 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: Perl - serazeni hashe
    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}";
    }
    
    
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    6.5.2011 01:07 buff | skóre: 10 | blog: buff
    Rozbalit Rozbalit vše Re: Perl - serazeni hashe
    10.5.2011 00:44 VM
    Rozbalit Rozbalit vše Re: Perl - serazeni hashe
    map {print "$_ - $vzdalenosti{$_}\n";} sort {$vzdalenosti{$a} <=> $vzdalenosti{$b}} keys %vzdalenosti;

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

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.