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 01:55 | Bezpečnostní upozornění

Společnost Uber potvrdila bezpečnostní incident a únik dat v roce 2016. Unikly údaje o 57 milionech cestujících (jména, emailové adresy a čísla mobilních telefonů) a 600 tisících řidičích (navíc čísla řidičských průkazů).

Ladislav Hagara | Komentářů: 0
včera 23:44 | Humor

Co vypíše příkaz man půl hodiny po půlnoci? Text "gimme gimme gimme". Jedná se o virtuální velikonoční vajíčko připomínající skupinu ABBA a její hit Gimme! Gimme! Gimme! (A Man After Midnight). Problém nastane, pokud gimme gimme gimme nabourá automatizované testování softwaru. To se pak příkaz man musí opravit [Bug 1515352] [reddit].

Ladislav Hagara | Komentářů: 5
včera 18:11 | Zajímavý článek

Mozilla.cz informuje, že Firefox na Fedoře podporuje Client Side Decorations. Firefox na Linuxu se vykresluje včetně standardního záhlaví okna, které je v případě webového prohlížeče většinou nadbytečné a ubírá drahocenné vertikální místo na obrazovce. Verze distribuovaná uživatelům Fedory však nyní obsahuje experimentální podporu pro takzvané Client Side Decorations, které umožňují vykreslování „oušek“ panelů do záhlaví okna.

Ladislav Hagara | Komentářů: 9
včera 05:00 | Bezpečnostní upozornění

Maxim Goryachy a Mark Ermolov ze společnosti Positive Technologies budou mít v prosinci na konferenci Black Hat Europe 2017 přednášku s názvem "Jak se nabourat do vypnutého počítače, a nebo jak v Intel Management Engine spustit vlastní nepodepsaný kód". O nalezeném bezpečnostním problému informovali společnost Intel. Ta bezpečnostní problém INTEL-SA-00086 v Intel Management Engine (ME), Intel Server Platform Services (SPS) a Intel

… více »
Ladislav Hagara | Komentářů: 28
včera 01:33 | Zajímavý projekt

Na Humble Bundle byla spuštěna akce Humble Book Bundle: Java. Za 1 dolar a více lze koupit 5 elektronických knih, za 8 dolarů a více 10 elektronických knih a za 15 dolarů a více 15 elektronických knih věnovaných programovacímu jazyku Java od nakladatelství O'Reilly. Peníze lze libovolně rozdělit mezi nakladatelství O'Reilly, neziskovou organizaci Code for America a Humble Bundle.

Ladislav Hagara | Komentářů: 0
včera 00:11 | Zajímavý projekt

Článek na OMG! Ubuntu! představuje rodinu písma IBM Plex. Jedná se o open source písmo (GitHub) navržené a uvolněné společností IBM (YouTube, Carbon Design System). Ukázka na Font Squirrel.

Ladislav Hagara | Komentářů: 11
20.11. 23:22 | Komunita

Na Humble Bundle lze získat počítačovou hru Brütal Legend (Wikipedie, YouTube) běžící také v Linuxu zdarma. Speciální akce končí ve středu v 19:00.

Ladislav Hagara | Komentářů: 0
20.11. 06:00 | Zajímavý článek

USA Network vysílá již třetí sérii seriálu Mr. Robot (Wikipedie, ČSFD.cz). Ryan Kazanciyan, technický konzultant seriálu, se na Medium v sérii článků Mr. Robot Disassembled věnuje jednotlivým dílům a popisuje použité nástroje a postupy.

Ladislav Hagara | Komentářů: 2
19.11. 23:55 | IT novinky

Společnost StartCom oficiálně oznámila, že jako certifikační autorita končí. Od 1. ledna 2018 přestane vydávat nové certifikáty a následující 2 roky bude poskytovat OCSP a CRL. Počátkem roku 2020 budou všechny platné certifikáty zneplatněny.

Ladislav Hagara | Komentářů: 53
19.11. 22:00 | IT novinky

Hodnota Bitcoinu, decentralizované kryptoměny, překonala hranici 8 000 dolarů [reddit].

Ladislav Hagara | Komentářů: 5
Jak se vás potenciálně dotkne trend odstraňování analogového audio konektoru typu 3,5mm jack z „chytrých telefonů“?
 (9%)
 (1%)
 (1%)
 (1%)
 (74%)
 (14%)
Celkem 735 hlasů
 Komentářů: 37, poslední včera 15:21
    Rozcestník

    Dotaz: Perl - Pole a třídění

    27.11.2010 14:38 Radek Podskubka | skóre: 2
    Perl - Pole a třídění
    Přečteno: 349×
    Ahoj, potřebuju v perlu seřadit nějaké hodnoty za tím účelem, abych mohl určit jejich medián. Problém je v tom, že k těmto hodnotám přísluší ještě nějaké odchylky. Data ukládám do pole z texťáku, kde jsou v jednom sloupci hodnoty a ve druhém jejich chyby. A medián určuju pro jednotlivé dny (tedy v prvním sloupci figuruje ještě nějaké datum, ale to není podstatné, navíc je to vidět z kódu). V přiložený kód funguje dobře, v podstatě jen určuje medián příslušných hodnot. Ovšem já bych potřeboval do výstupu ještě k mediánu vytisknout odchylku, která k němu přísluší (tedy NE medián odchylek). Problém tedy nastává v okamžiku, kdy se provádí příkaz
    @vars = sort @{$dailyvars{$_}};
    Pokud bych měl tedy uloženy odchylky v podobném poli jako hodnoty, a tímto způsobem zamíchám s jejich pořadím,tak už nepřísluší například pátý prvek pole vars k pátému prvku pole odchylek. Principielně je snad řešení snadné, prostě kromě hodnot je třeba naskládat do pole @{dailyvars{1}} ještě odkazy na konkrétní prvky pole odchylek a na ty se potom odvolávat. Já jsem ale v Perlu doccela nováček a netuším jak tohle zapsat nebo mě nenapadá nějaké snažší řešení. Děkuji za každou radu.

    Celý výpis kódu je zde
    while (<>)
    {
        if (/^#/) { next; }
        /([\d-]+) (\d+) ([\d\.]+) ([\d\.]+)/ or die "daily_median.pl: Error processing line: $_";
        if (! exists $dailyvars{$1}) { @{$dailyvars{$1}} = ( $3 ); $count{$1} = 1; }
        else { push @{$dailyvars{$1}}, $3; $count{$1} += 1; }
    }
    foreach (sort keys %dailyvars)
    {
        @vars = sort @{$dailyvars{$_}};
        $n = $#vars + 1;
        if ($n % 2 == 1) {
    	$median = $vars[($n - 1) / 2]; }
        else {
    	$median = ($vars[$n / 2] + $vars[$n / 2 - 1]) / 2; }
        print $_ . " $median " . $count{$_} . "\n";
    }
    

    Řešení dotazu:


    Odpovědi

    Řešení 2× (Radek Podskubka (tazatel), pht)
    27.11.2010 15:42 buff | skóre: 10 | blog: buff
    Rozbalit Rozbalit vše Re: Perl - Pole a třídění
    Myslím, že Tvé řešení je špatně: sort v perlu defaultně třídí lexikograficky, nikoliv číselně.

    K problému: pokud by při načítání byla odchylka např. v $4:
    if (! exists $dailyvars{$1}) { @{$dailyvars{$1}} = ({var => $3, odchylka => $4}); $count{$1} = 1; }
    else { push @{$dailyvars{$1}}, {var => $3, odchylka => $4}; $count{$1} += 1; }
    
    ...
    
    @vars = sort { $a->{var} <=> $b->{var} } (@{$dailyvars{$_}});
    
    ...
    
    $median = $vars[($n - 1) / 2]->{var};
    
    
    A další změny analogicky.

    Vtip je v tom, že do $dailyvars{$den} neukládáš jen hodnoty, ale ukazatele na hash, který má dva klíče: var a odchylka. Tím si podržíš ty přidružené hodnoty pospolu.

    Doufám, že je to trochu srozumitelné, spěchám, tak to vysvětluju tak nějak narychlo a ne moc exaktně. Podívej se do manuálu na sort, tam uvidíš, že to, co dávám do prvních složených závorek, je funkce, která určuje, podle čeho se bude třídit.
    27.11.2010 17:16 Radek Podskubka | skóre: 2
    Rozbalit Rozbalit vše Re: Perl - Pole a třídění
    Dík moc. To je určitě velmi efektivní řešení. Pomohlo mi to.
    wamba avatar 27.11.2010 18:16 wamba | skóre: 37 | blog: wamba
    Rozbalit Rozbalit vše Re: Perl - Pole a třídění

    popř. něco takového

    use 5.010;
    use warnings;
    use strict;

    my %dailyvars;

    while (<>) {
    next if /^#/;    #ignoruj komentáře
    /(?<date>[\d-]+) \d+ (?<var>[\d\.]+) (?<odchylka>[\d\.]+)/ #rozeber řádek
    or die "daily_median.pl: Error processing line: $_";

    push @{ $dailyvars{ $+{date} }{vars} },
    $+{var};    #přidej hodnotu mezi hodnoty
    push @{ $dailyvars{ $+{date} }{'odchylky'} },
    $+{odchylka};    #přidej odchylku mezi odchylky
    $dailyvars{ $+{date} }{count}++;    #přičti k počtu 1
    }

    foreach ( sort keys %dailyvars ) {      #pro všechny  dny (seřazené)
    my $median;
    my @vars = sort { $a <=> $b } @{ $dailyvars{$_}{vars} };  #srovnej hodnoty
    my $n = @vars;                                            #počet  hodnot;

    if ( $n % 2 == 1 ) {
    $median = $vars[ ( $n - 1 ) / 2 ]
    ;    #vypočti median pro  sudý počet hondot
    }
    else {
    $median = ( $vars[ $n / 2 ] + $vars[ $n / 2 - 1 ] )
    / 2;    #vypočti median pro lichý počet hodnot
    }

    #vypiš výsledek
    say $_
    . "\tmedian: $median "
    . "\tpocet: $dailyvars{$_}{count} "
    . "\todchylky:  @{ $dailyvars{$_}{odchylky} }";
    }

    This would have been so hard to fix when you don't know that there is in fact an easy fix.

    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.