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 14:11 | Komunita

    Po Canonicalu a SUSE oznámil také Red Hat, že bude podporovat a distribuovat toolkit NVIDIA CUDA (Wikipedie).

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

    TrueNAS (Wikipedie), tj. open source storage platforma postavená na Linuxu, byl vydán ve verzi 25.10 Goldeye. Přináší NVMe over Fabric (NVMe-oF) nebo OpenZFS 2.3.4.

    Ladislav Hagara | Komentářů: 0
    dnes 13:33 | Nová verze

    Byla vydána OpenIndiana 2025.10. Unixový operační systém OpenIndiana (Wikipedie) vychází z OpenSolarisu (Wikipedie).

    Ladislav Hagara | Komentářů: 0
    dnes 13:22 | Zajímavý článek

    České základní a střední školy čelí alarmujícímu stavu kybernetické bezpečnosti. Až 89 % identifikovaných zranitelností v IT infrastruktuře vzdělávacích institucí dosahuje kritické úrovně, což znamená, že útočníci mohou vzdáleně převzít kontrolu nad klíčovými systémy. Školy navíc často provozují zastaralé technologie, i roky nechávají zařízení bez potřebných aktualizací softwaru a používají k nim pouze výchozí, všeobecně známá

    … více »
    Ladislav Hagara | Komentářů: 3
    dnes 05:11 | Komunita

    Během tradiční ceremonie k oslavě Dne vzniku samostatného československého státu (28. října) byl vyznamenán medailí Za zásluhy (o stát v oblasti hospodářské) vývojář 3D tiskáren Josef Průša. Letos byly uděleny pouze dvě medaile Za zásluhy o stát v oblasti hospodářské, druhou dostal informatik a manažer Ondřej Felix, který se zabývá digitalizací státní správy.

    🇹🇬 | Komentářů: 27
    dnes 04:44 | Nová verze

    Tor Browser, tj. fork webového prohlížeče Mozilla Firefox s integrovaným klientem sítě Tor přednastavený tak, aby přes tuto síť bezpečně komunikoval, byl vydán ve verzi 15.0. Postaven je na Firefoxu ESR 140.

    Ladislav Hagara | Komentářů: 2
    včera 16:44 | Nová verze

    Bylo oznámeno (cs) vydání Fedora Linuxu 43. Ve finální verzi vychází šest oficiálních edic: Fedora Workstation a Fedora KDE Plasma Desktop pro desktopové, Fedora Server pro serverové, Fedora IoT pro internet věcí, Fedora Cloud pro cloudové nasazení a Fedora CoreOS pro ty, kteří preferují neměnné systémy. Vedle nich jsou k dispozici také další atomické desktopy, spiny a laby. Podrobný přehled novinek v samostatných článcích na stránkách Fedora Magazinu: Fedora Workstation, Fedora KDE Plasma Desktop, Fedora Silverblue a Fedora Atomic Desktops.

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

    Elon Musk oznámil (𝕏) spuštění internetové encyklopedie Grokipedia (Wikipedia). Zatím ve verzi 0.1. Verze 1.0 prý bude 10x lepší, ale i ve verzi 0.1 je podle Elona Muska již lepší než Wikipedia.

    Ladislav Hagara | Komentářů: 19
    včera 05:44 | Komunita

    PSF (Python Software Foundation) po mnoha měsících práce získala grant ve výši 1,5 milionu dolarů od americké vládní NSF (National Science Foundation) v rámci programu "Bezpečnost, ochrana a soukromí open source ekosystémů" na zvýšení bezpečnosti Pythonu a PyPI. PSF ale nesouhlasí s předloženou podmínkou grantu, že během trvání finanční podpory nebude žádným způsobem podporovat diverzitu, rovnost a inkluzi (DEI). PSF má diverzitu přímo ve svém poslání (Mission) a proto grant odmítla.

    Ladislav Hagara | Komentářů: 24
    včera 04:55 | Nová verze

    Balík nástrojů Rust Coreutils / uutils coreutils, tj. nástrojů z GNU Coreutils napsaných v programovacím jazyce Rust, byl vydán ve verzi 0.3.0. Z 634 testů kompatibility Rust Coreutils s GNU Coreutils bylo úspěšných 532, tj. 83,91 %. V Ubuntu 25.10 se již používá Rust Coreutils místo GNU Coreutils, což může přinášet problémy, viz například nefunkční automatická aktualizace.

    Ladislav Hagara | Komentářů: 0
    Jaké řešení používáte k vývoji / práci?
     (36%)
     (48%)
     (20%)
     (19%)
     (23%)
     (17%)
     (21%)
     (17%)
     (17%)
    Celkem 281 hlasů
     Komentářů: 14, poslední 14.10. 09:04
    Rozcestník

    sub vs do performance in Perl

    5.1.2007 16:00 | Přečteno: 1080× | Perl | poslední úprava: 5.1.2007 16:34

    Tak jsem uvnitř podmínky grepu potřeboval vyhodnotit nějakou složitější věc a měl jsem možnost napsat to jako annonymní sub a nebo do. Položil jsem si otázku co bude rychlejší?

    Vnitřek podmínky grepu vypadal nějak podobně takhle:

    do
    my $attr = $_;
    my $successors = $successors{$attr};
    $successors
    and do {
      my $res;
      $res = exists $successors->{$_} and last
        foreach (predecessors($attr));
      !$res
    }
    
    sub
    my $attr = $_;
    my $successors = $successors{$attr};
    $successors
    and sub {
      exists $successors->{$_} && return 0
        foreach predecessors($attr);
      1
    }->()
    

    Výsledný kód jsem trošku benchmarkoval a verze se sub je až o 50% pomalejší (samozřejmě v závislosti na okolní režiji). Ale proč? Odpověď je celkem jednoduchá, annonymní subrutina se pokaždé znovu skompiluje. (Trošku zjednodušuji, ona se ve skutečnosti jednou předkompiluje a pak se jí mění syntaktický kontext, ale ve výsledku je pro každé zavolání vnitřní smyčky vytvořená nová subrutina. Kdybych si ji někam ukládal tak bude pokaždé na jiné adrese, atd.) Dá se tomu nějak zabránit? Jistě, vytvořit immutable annonymní subrutinu a Perl je tak chytrý, že ji skompiluje jen jednou.

    immutable sub
    my $attr = $_;
    my $successors = $successors{$attr};
    $successors
    and sub {
      exists $_[0]->{$_} && return 0
        foreach predecessors($_[1]);
      1
    }->($successors, $attr)
    

    Takový kód je pak prakticky stejně rychlý jako do. Co je na tom zajímavého? Snad jen to, že do v perlu se tak hezky chová, skompiluje se jen jednou i když obsahuje proměnné v syntaktickém kontextu a je tedy rychlejší než použití annonymního sub.

    Pokud si chcete taky pohrát, tak zde je text kompletního benchmarku:

    #!/usr/bin/env perl
    
    use strict;
    use Benchmark qw(:all :hireswallclock);
    
    my $count = 100;
    
    my %successors = map +($_, {$_ => undef}), 1..$count;
    sub predecessors {($_[0]-1) .. ($_[0]+1)}
    sub none (&@) {
    	&{$_[0]} && return 0 foreach @_[1..$#_];
    	1
    }
    
    cmpthese(-2, {
    	'do' => sub {
    			do {my $attr = $_;
    				my $successors = $successors{$attr};
    				do {
    					my $res;
    					foreach (predecessors($attr)) {
    						$res = exists $successors->{$_} and last
    					}
    					!$res
    				}
    			} foreach 1 .. $count;
    		},
    	'sub' => sub {
    			do {my $attr = $_;
    				my $successors = $successors{$attr};
    				sub {
    					exists $successors->{$_} && return 0
    						foreach predecessors($attr);
    					1
    				}->()
    			} foreach 1 .. $count;
    		},
    	'subimmu' => sub {
    			do {my $attr = $_;
    				my $successors = $successors{$attr};
    				sub {
    					exists $_[0]->{$_} && return 0
    						foreach predecessors($_[1]);
    					1
    				}->($successors, $attr)
    			} foreach 1 .. $count;
    		},
    	'none' => sub {
    			do {
    				my $successors = $successors{$_};
    				none {$successors->{$_}} predecessors($_);
    			} foreach 1 .. $count;
    		},
    	'evalblock' => sub {
    			do {my $attr = $_;
    				my $successors = $successors{$attr};
    				eval {
    					my $res;
    					foreach (predecessors($attr)) {
    						$res = exists $successors->{$_} and last
    					}
    					!$res
    				}
    			} foreach 1 .. $count;
    		},
    	'evalstr' => sub {
    			do {my $attr = $_;
    				my $successors = $successors{$attr};
    				eval '
    					my $res;
    					foreach (predecessors($attr)) {
    						$res = exists $successors->{$_} and last
    					}
    					!$res
    				'
    			} foreach 1 .. $count;
    		},
    	});
    

    Pro zajímavost jsou doplněny ještě další varianty. Není překvapením, že blokové použití evalu je stejně rychlé jako do nebo immutable sub. Trochu jsem byl zklamán rychlostí při použití krásné elegantní šablonované funkce none. Tam se vlastně stejně jako při normálním annonymním sub pokaždé znovu skompiluje první parametr a jestě ke všemu se tato subrutina volá uvnitř foreach, takže to ve výsledku dopadne hůř. No a nejhorší je eval stringu, nic divného, že ;-)

    P.S.: Nakonec jsem se do úplně vyhnul a použil jednu z vlastností if, že vrací hodnotu podmínky. No co, aspoň jsem nahlédl do chování perlu zase o kousek hloub. Ekvivalent shora uvedených kódů pak nakonec vypadá asi takhle:

    if (my $successors = $successors{$_}){
      my $res;
      $res = exists $successors->{$_} and last
        foreach (predecessors($_));
      !$res
    }

    Ano, to je celý vnitřek podmínky grepu, ušetřím ještě jednu alokaci proměnné, což je podle mých měření dokonce víc než zavolání sub

           

    Hodnocení: 88 %

            špatnédobré        

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    Komentáře

    Vložit další komentář

    5.1.2007 16:31 happy barney | skóre: 34 | blog: dont_worry_be_happy
    Rozbalit Rozbalit vše Re: sub vs do performance in Perl
    do nerobí to isté, čo sub. Ako píšu v dokumentácií, Not really a function..

    do jednoducho vyhodnotí blok.
    sub vytvorí anonymnú funkciu, ktorej kopíruje kontext (pre ostatných, google: perl closures)

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.