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 21:22 | IT novinky

    Ministerstvo pro místní rozvoj (MMR) jako první orgán státní správy v Česku spustilo takzvaný „bug bounty“ program pro odhalování bezpečnostních rizik a zranitelných míst ve svých informačních systémech. Za nalezení kritické zranitelnosti nabízí veřejnosti odměnu 1000 eur, v případě vysoké závažnosti je to 500 eur. Program se inspiruje přístupy běžnými v komerčním sektoru nebo ve veřejné sféře v zahraničí.

    Ladislav Hagara | Komentářů: 1
    dnes 16:22 | IT novinky

    Vláda dne 16. července 2025 schválila návrh nového jednotného vizuálního stylu státní správy. Vytvořilo jej na základě veřejné soutěže studio Najbrt. Náklady na přípravu návrhu a metodiky činily tři miliony korun. Modernizovaný dvouocasý lev vychází z malého státního znaku. Vizuální styl doprovází originální písmo Czechia Sans.

    Ladislav Hagara | Komentářů: 9
    dnes 15:33 | Upozornění

    Vyhledávač DuckDuckGo je podle webu DownDetector od 2:15 SELČ nedostupný. Opět fungovat začal na několik minut zhruba v 15:15. Další služby nesouvisející přímo s vyhledáváním, jako mapyAI asistent jsou dostupné. Pro některé dotazy během výpadku stále funguje zobrazování například textu z Wikipedie.

    bindiff | Komentářů: 5
    dnes 13:33 | Bezpečnostní upozornění

    Více než 600 aplikací postavených na PHP frameworku Laravel je zranitelných vůči vzdálenému spuštění libovolného kódu. Útočníci mohou zneužít veřejně uniklé konfigurační klíče APP_KEY (např. z GitHubu). Z více než 260 000 APP_KEY získaných z GitHubu bylo ověřeno, že přes 600 aplikací je zranitelných. Zhruba 63 % úniků pochází z .env souborů, které často obsahují i další citlivé údaje (např. přístupové údaje k databázím nebo cloudovým službám).

    Ladislav Hagara | Komentářů: 5
    dnes 00:11 | Nová verze

    Open source modální textový editor Helix, inspirovaný editory Vim, Neovim či Kakoune, byl vydán ve verzi 25.07. Přehled novinek se záznamy terminálových sezení v asciinema v oznámení na webu. Detailně v CHANGELOGu na GitHubu.

    Ladislav Hagara | Komentářů: 1
    včera 20:44 | IT novinky

    Americký výrobce čipů Nvidia získal od vlády prezidenta Donalda Trumpa souhlas s prodejem svých pokročilých počítačových čipů používaných k vývoji umělé inteligence (AI) H20 do Číny. Prodej těchto čipů speciálně upravených pro čínský trh by tak mohl být brzy obnoven, uvedla firma na svém blogu. Americká vláda zakázala prodej v dubnu, v době eskalace obchodního sporu mezi oběma zeměmi. Tehdy to zdůvodnila obavami, že by čipy mohla využívat čínská armáda.

    Ladislav Hagara | Komentářů: 10
    včera 17:22 | Nová verze

    3D software Blender byl vydán ve verzi 4.5 s prodlouženou podporou. Podrobnosti v poznámkách k vydání. Videopředstavení na YouTube.

    Ladislav Hagara | Komentářů: 0
    14.7. 22:22 | Komunita

    Open source webový aplikační framework Django slaví 20. narozeniny.

    Ladislav Hagara | Komentářů: 0
    14.7. 16:11 | Komunita

    V Brestu dnes začala konference vývojářů a uživatelů linuxové distribuce Debian DebConf25. Na programu je řada zajímavých přednášek. Sledovat je lze online.

    Ladislav Hagara | Komentářů: 0
    14.7. 11:33 | IT novinky

    Před 30 lety, tj. 14. července 1995, se začala používat přípona .mp3 pro soubory s hudbou komprimovanou pomocí MPEG-2 Audio Layer 3.

    Ladislav Hagara | Komentářů: 28
    Jaký je váš oblíbený skriptovací jazyk?
     (59%)
     (27%)
     (7%)
     (3%)
     (0%)
     (1%)
     (4%)
    Celkem 401 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: 229×

    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.