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 15:00 | Zajímavý článek

    Byl publikován přehled vývoje renderovacího jádra webového prohlížeče Servo (Wikipedie) za uplynulé dva měsíce. Servo zvládne už i Gmail. Zakázány jsou příspěvky generované pomocí AI.

    Ladislav Hagara | Komentářů: 5
    9.5. 17:22 | Nová verze

    Raspberry Pi Connect, tj. oficiální služba Raspberry Pi pro vzdálený přístup k jednodeskovým počítačům Raspberry Pi z webového prohlížeče, byla vydána v nové verzi 2.5. Nejedná se už o beta verzi.

    Ladislav Hagara | Komentářů: 3
    9.5. 15:22 | Komunita

    Google zveřejnil seznam 1272 projektů (vývojářů) od 185 organizací přijatých do letošního, již jednadvacátého, Google Summer of Code. Plánovaným vylepšením v grafických a multimediálních aplikacích se věnuje článek na Libre Arts.

    Ladislav Hagara | Komentářů: 0
    8.5. 19:22 | Nová verze

    Byla vydána (𝕏) dubnová aktualizace aneb nová verze 1.100 editoru zdrojových kódů Visual Studio Code (Wikipedie). Přehled novinek i s náhledy a videi v poznámkách k vydání. Ve verzi 1.100 vyjde také VSCodium, tj. komunitní sestavení Visual Studia Code bez telemetrie a licenčních podmínek Microsoftu.

    Ladislav Hagara | Komentářů: 0
    8.5. 18:00 | Nová verze

    Open source platforma Home Assistant (Demo, GitHub, Wikipedie) pro monitorování a řízení inteligentní domácnosti byla vydána v nové verzi 2025.5.

    Ladislav Hagara | Komentářů: 0
    8.5. 01:22 | Nová verze Ladislav Hagara | Komentářů: 0
    8.5. 00:55 | Zajímavý projekt

    PyXL je koncept procesora, ktorý dokáže priamo spúštat Python kód bez nutnosti prekladu ci Micropythonu. Podľa testov autora je pri 100 MHz približne 30x rýchlejší pri riadeni GPIO nez Micropython na Pyboard taktovanej na 168 MHz.

    vlk | Komentářů: 0
    7.5. 19:44 | Nová verze

    Grafana (Wikipedie), tj. open source nástroj pro vizualizaci různých metrik a s ní související dotazování, upozorňování a lepší porozumění, byla vydána ve verzi 12.0. Přehled novinek v aktualizované dokumentaci.

    Ladislav Hagara | Komentářů: 0
    7.5. 17:33 | Nová verze

    Raspberry Pi OS, oficiální operační systém pro Raspberry Pi, byl vydán v nové verzi 2025-05-06. Přehled novinek v příspěvku na blogu Raspberry Pi a poznámkách k vydání. Pravděpodobně se jedná o poslední verzi postavenou na Debianu 12 Bookworm. Následující verze by již měla být postavena na Debianu 13 Trixie.

    Ladislav Hagara | Komentářů: 0
    7.5. 05:33 | Komunita

    Richard Stallman dnes v Liberci přednáší o svobodném softwaru a svobodě v digitální společnosti. Od 16:30 v aule budovy G na Technické univerzitě v Liberci. V anglickém jazyce s automaticky generovanými českými titulky. Vstup je zdarma i pro širokou veřejnost.

    Ladislav Hagara | Komentářů: 17
    Jaký filesystém primárně používáte?
     (57%)
     (1%)
     (8%)
     (22%)
     (4%)
     (2%)
     (3%)
     (1%)
     (1%)
     (3%)
    Celkem 581 hlasů
     Komentářů: 26, poslední 8.5. 09:58
    Rozcestník

    Administrace komentářů

    Jste na stránce určené pro řešení chyb a problémů týkajících se diskusí a komentářů. Můžete zde našim administrátorům reportovat špatně zařazenou či duplicitní diskusi, vulgární či osočující příspěvek a podobně. Děkujeme vám za vaši pomoc, více očí více vidí, společně můžeme udržet vysokou kvalitu AbcLinuxu.cz.

    Příspěvek
    28.5.2009 09:46 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: sort v perlu dle cest ..
    Je to neúnosně pomalé, protože to zavání kvadratickou nebo bůhvíjakou složitostí. Určitě by to šlo nějak zrychlit, ale pouze konstantní mírou, takže pro velký objem dat to stejně bude pasé.

    Ten Váš přístup je prostě no-go. Fundamentální problém je v tom, že kvůli File::Find házíte vše do jednoho pytle (resp. dvou pytlů) a tak ztrácíte možnost správně zařadit věci ve chvíli, kdy přijdou pod ruku. Pak se to snažíte krkolomně rozuzlit. Je to typický příklad nepředávání důležité informace mezi částmi programu.

    Můj program je dělaný pro Perl v5.10 a s předpokladem, že není problém doinstalovat některé užitečné moduly (např. autodie). Neměl by být problém ho retardovat na starší verzi. Místo autodie použijete klasické ... or die, místo smart match použijete grep a místo given...when použijete if...elsif.
    #!/usr/bin/perl
    
    use strict;
    use warnings;
    
    
    # fetch arguments...
    my @dirs = sort @ARGV;
    @dirs = qw/./ unless scalar @dirs;
    
    my @output;
    
    # walk through directory queue...
    while (my $dir = shift @dirs) {
    
            # include this directory in output...
            push @output, $dir;
    
            # temporary array for directory objects
            # we use this to maintain the already sorted order...
            my @localdirs;
    
            # process all entries in this directory...
            opendir(my $dh, $dir) or die "opendir $dir: $!\n";
            my @entries = readdir($dh);
            die "readdir $dir: $!\n" unless scalar @entries;
            for my $obj (sort @entries) {
                    # skip dot and dotdot...
                    next if grep { $_ eq $obj } (qw/. ../);
    
                    # figure out the full path and process it...
                    my $fp = "$dir/$obj";
    
                    if (-f $fp) {
                            # files go to output...
                            push @output, $fp;
                    }
                    elsif (-d $fp) {
                            # dirs go to temp. array...
                            push @localdirs, $fp;
                    }
            }
    
            # prepend found directories to the queue...
            unshift @dirs, @localdirs if scalar @localdirs;
    }
    
    print join("\n", @output), "\n";
    
    Opět dodávám, že jsem tento program na Vašem systému netestoval, takže si případné drobnosti dolaďte.
    In Ada the typical infinite loop would normally be terminated by detonation.

    V tomto formuláři můžete formulovat svou stížnost ohledně příspěvku. Nejprve vyberte typ akce, kterou navrhujete provést s diskusí či příspěvkem. Potom do textového pole napište důvody, proč by měli admini provést vaši žádost, problém nemusí být patrný na první pohled. Odkaz na příspěvek bude přidán automaticky.

    Vaše jméno
    Váš email
    Typ požadavku
    Slovní popis
    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.