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í
×
    včera 19:55 | IT novinky

    Společnost Meta ve spolupráci se společností Oakley oznámila řadu chytrých brýlí Oakley. První Oakley Meta HSTN si lze předobjednat za 499 dolarů.

    Ladislav Hagara | Komentářů: 0
    včera 16:11 | IT novinky

    Ministerstvo průmyslu a obchodu (MPO) vyjádřilo podporu předložení projektu AI Gigafactory CZ, který do veřejné konzultace Evropské komise zaslala společnost České Radiokomunikace (CRA) v rámci iniciativy Project AIGF CZ. Jde o významný krok k rozvoji výpočetní infrastruktury pro umělou inteligenci (AI), která je prioritou resortu. Projekt je v souladu s cíli Národní strategie umělé inteligence ČR 2030 a je již součástí návrhu

    … více »
    Ladislav Hagara | Komentářů: 9
    včera 13:11 | Zajímavý článek

    Nové číslo časopisu Raspberry Pi zdarma ke čtení: Raspberry Pi Official Magazine 154 (pdf). S podtitulem Automatizace domácnosti.

    Ladislav Hagara | Komentářů: 0
    včera 12:22 | IT novinky

    Americký prezident Donald Trump podepsal exekutivní příkaz, který prodlužuje lhůtu pro prodej amerických aktiv aplikace TikTok vlastněné čínskou společností ByteDance do amerických rukou o dalších 90 dnů. Americký Kongres loni v dubnu kvůli bezpečnostním obavám přijal zákon, podle kterého měl vstoupit v platnost zákaz sítě TikTok v USA v případě, že se prodej neuskuteční do 19. ledna. Trump však v lednu lhůtu pro prodej prodloužil o 75 dnů. V dubnu pak přikročil k prodloužení o dalších 75 dnů, lhůta tak měla vypršet dnešním dnem.

    Ladislav Hagara | Komentářů: 1
    včera 12:11 | IT novinky

    Microsoft hodlá zrušit další tisíce pracovních míst, a to především v obchodních odděleních. Předchozí kolo propouštění se uskutečnilo v květnu a dotklo se 6000 zaměstnanců. Vedení firmy již dříve upozornilo, že vzhledem k rozsáhlým investicím do umělé inteligence (AI) se bude snažit omezovat výdaje v jiných oblastech.

    Ladislav Hagara | Komentářů: 5
    19.6. 18:44 | IT novinky

    Společnost Murena ve spolupráci se společností Qwant představila vyhledávač Murena Find. Ve výchozím nastavení bude používán v mobilním operačním systému /e/OS a v Murena Workspace.

    Ladislav Hagara | Komentářů: 0
    19.6. 13:00 | IT novinky

    V mobilní aplikaci Facebooku se lze nově přihlašovat pomocí Passkeys.

    Ladislav Hagara | Komentářů: 3
    19.6. 12:44 | IT novinky

    Společnost Midjourney představila vlastní generátor videí pomocí umělé inteligence (AI) V1 Video Model.

    Ladislav Hagara | Komentářů: 0
    18.6. 23:22 | Nová verze

    Editor kódu Zed (Wikipedie) má nově v sobě integrovaný debugger. Podporuje Rust, C/C++, JavaScript, Go, Python a pomocí rozšíření i další programovací jazyky.

    Ladislav Hagara | Komentářů: 7
    18.6. 22:22 | Zajímavý článek

    Byl publikován aktuální přehled vývoje renderovacího jádra webového prohlížeče Servo (Wikipedie). Servo mimo jiné nově zvládne animované GIFy.

    Ladislav Hagara | Komentářů: 1
    Jaký je váš oblíbený skriptovací jazyk?
     (57%)
     (29%)
     (7%)
     (2%)
     (0%)
     (1%)
     (3%)
    Celkem 289 hlasů
     Komentářů: 16, poslední 8.6. 21:05
    Rozcestník

    Dotaz: Perl - serazeni hashe

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

    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.