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:44 | Nová verze

    PixiEditor byl vydán ve verzi 2.0. Jedná se o multiplatformní univerzální all-in-one 2D grafický editor. Zvládne rastrovou i vektorovou grafiku, pixel art, k tomu animace a efekty pomocí uzlového grafu. Zdrojové kódy jsou k dispozici na GitHubu pod licencí GNU LGPL 3.0.

    Ladislav Hagara | Komentářů: 1
    včera 13:22 | Nová verze

    Byly představeny novinky v Raspberry Pi Connect for Organisations. Vylepšen byl protokol auditu pro lepší zabezpečení. Raspberry Pi Connect je 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. Verze pro organizace je placená. Cena je 0,50 dolaru za zařízení za měsíc.

    Ladislav Hagara | Komentářů: 0
    včera 01:33 | Zajímavý software

    CISA (Cybersecurity and Infrastructure Security Agency) oznámila veřejnou dostupnost škálovatelné a distribuované platformy Thorium pro automatizovanou analýzu malwaru. Zdrojové kódy jsou k dispozici na GitHubu.

    Ladislav Hagara | Komentářů: 0
    31.7. 17:22 | Nová verze Ladislav Hagara | Komentářů: 0
    31.7. 16:11 | Zajímavý software

    Společnost Proton AG stojící za Proton Mailem a dalšími službami přidala do svého portfolia Proton Authenticator. S otevřeným zdrojovým kódem a k dispozici na všech zařízeních. Snadno a bezpečně synchronizujte a zálohujte své 2FA kódy. K používání nepotřebujete Proton Account.

    Ladislav Hagara | Komentářů: 0
    30.7. 16:22 | Zajímavý článek

    Argentinec, který byl náhodně zachycen Google Street View kamerou, jak se zcela nahý prochází po svém dvorku, vysoudil od internetového giganta odškodné. Soud uznal, že jeho soukromí bylo opravdu porušeno – Google mu má vyplatit v přepočtu asi 12 500 dolarů.

    Ladislav Hagara | Komentářů: 14
    30.7. 13:55 | IT novinky

    Eben Upton, CEO Raspberry Pi Holdings, informuje o RP2350 A4, RP2354 a nové hackerské výzvě. Nový mikrokontrolér RP2350 A4 řeší chyby, i bezpečnostní, předchozího RP2350 A2. RP2354 je varianta RP2350 s 2 MB paměti. Vyhlášena byla nová hackerská výzva. Vyhrát lze 20 000 dolarů.

    Ladislav Hagara | Komentářů: 0
    29.7. 14:44 | IT novinky

    Představen byl notebook TUXEDO InfinityBook Pro 15 Gen10 s procesorem AMD Ryzen AI 300, integrovanou grafikou AMD Radeon 800M, 15,3 palcovým displejem s rozlišením 2560x1600 pixelů. V konfiguraci si lze vybrat až 128 GB RAM. Koupit jej lze s nainstalovaným TUXEDO OS nebo Ubuntu 24.04 LTS.

    Ladislav Hagara | Komentářů: 18
    29.7. 13:44 | Nová verze

    Po půl roce od vydání verze 2.41 byla vydána nová verze 2.42 knihovny glibc (GNU C Library). Přehled novinek v poznámkách k vydání a v souboru NEWS. Vypíchnout lze například podporu SFrame. Opraveny jsou zranitelnosti CVE-2025-0395, CVE-2025-5702, CVE-2025-5745 a CVE-2025-8058.

    Ladislav Hagara | Komentářů: 0
    29.7. 06:00 | Nová verze

    Byla vydána nová verze 9.15 z Debianu vycházející linuxové distribuce DietPi pro (nejenom) jednodeskové počítače. Přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    Kolik tabů máte standardně otevřeno ve web prohlížeči?
     (30%)
     (29%)
     (5%)
     (6%)
     (4%)
     (1%)
     (2%)
     (24%)
    Celkem 195 hlasů
     Komentářů: 21, poslední 30.7. 22:56
    Rozcestník

    sub vs do performance in Perl

    5.1.2007 16:00 | Přečteno: 1071× | 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.