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

Kernel.org představil lore.kernel.org, tj. archiv diskusního listu vývojářů linuxového jádra LKML (Linux Kernel Mailing List) s řadou zajímavých funkcí. Archiv běží na softwaru Public Inbox.

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

Po devíti měsících vývoje od vydání verze 10.0 byla vydána verze 11.0 open source alternativy GitHubu, tj. softwarového nástroje s webovým rozhraním umožňujícího spolupráci na zdrojových kódech, GitLab (Wikipedie). Představení nových vlastností v příspěvku na blogu a na YouTube.

Ladislav Hagara | Komentářů: 0
včera 20:44 | Nová verze

Po více než 3 měsících vývoje od vydání verze 238 oznámil Lennart Poettering vydání verze 239 správce systému a služeb systemd (GitHub, NEWS).

Ladislav Hagara | Komentářů: 7
včera 15:00 | Nová verze

Bylo oznámeno vydání nové stabilní verze 1.28 a beta verze 1.29 open source textového editoru Atom (Wikipedie). Přehled novinek i s náhledy v příspěvku na blogu. Podrobnosti v poznámkách k vydání. Atom 1.28 je postaven na Electronu 2.0.

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

Byla vydána nová verze 2.3.0 multiplatformního svobodného frameworku pro zpracování obrazu G'MIC (GREYC's Magic for Image Computing, Wikipedie). Přehled novinek i s náhledy na PIXLS.US.

Ladislav Hagara | Komentářů: 0
včera 13:00 | Komunita

Akční RPG hra Shadowrun Returns Deluxe, kterou lze hrát i na Linuxu je nyní zdarma na Humble Bundle. Hra vyšla díky kampani na Kickstarteru v roce 2013.

tajny_007 | Komentářů: 0
včera 01:00 | Nová verze

Byla vydána verze 1.27 programovacího jazyka Rust (Wikipedie). Z novinek je nutno zmínit podporu SIMD (Single Instruction Multiple Data). Podrobnosti v poznámkách k vydání. Vyzkoušet Rust lze například na stránce Rust by Example.

Ladislav Hagara | Komentářů: 7
21.6. 16:22 | IT novinky

CEO Intelu Brian Krzanich rezignoval (tisková zpráva). Oficiálním důvodem je "vztah na pracovišti". S okamžitou platností se dočasným CEO stal Robert Swan.

Ladislav Hagara | Komentářů: 39
21.6. 14:11 | Komunita

Konsorcium Linux Foundation ve spolupráci s kariérním portálem Dice.com zveřejnilo 2018 Open Source Jobs Report. Poptávka po odbornících na open source neustále roste.

Ladislav Hagara | Komentářů: 1
21.6. 12:44 | Zajímavý článek

Na stránkách linuxové distribuce Ubuntu Studio byla publikována příručka Ubuntu Studio Audio Handbook věnována vytváření, nahrávaní a úpravě zvuků a hudby nejenom v Ubuntu Studiu. Jedná se o živý dokument editovatelný na jejich wiki.

Ladislav Hagara | Komentářů: 0
Jak čtete delší texty z webových stránek?
 (77%)
 (22%)
 (4%)
 (7%)
 (2%)
 (10%)
Celkem 248 hlasů
 Komentářů: 39, poslední 21.6. 17:44
    Rozcestník

    Dotaz: Perl - serazeni hashe

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

    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.