LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Perl (104) - Testování rychlosti

Perl Naučíme se odhalovat pomalé úseky kódu pomocí metod pro měření rychlosti a porovnávání různých programových úseků.

8.3.2010 00:00 | Jiří Václavík | Články autora | přečteno 9308×

Výkonostní testování, nebo-li benchmarking, zjišťuje, jak rychlý je náš kód. Užijeme ho zejména při optimalizaci kódu. Pokud potřebujeme, aby byl kód co nejvýkonnější a máme více možností, jak celý problém implementovat, vyzkoušíme je všechny. Poté se rozhodneme pomocí výkonostních testů, kterou možnost aplikujeme.

Výkonostní testy nemají většinou smysl, když je daná část kódu používaná v malém rozsahu. Pokud nejde o vyloženě špatný algoritmus, ušetříme tím jen zlomky sekundy a ty obvykle příliš nehrají roli. Pokud ale tyto zlomky vynásobíme 100000krát, už může být ušetřený čas patrný.

Měření rychlosti běhu programu

Obecně bychom mohli vytořit program pro stopování doby běhu úseků kódu velice jednoduše. Zde máme jednoduchý výkonnostní test, který funguje stejně jako stopky. Poprvé stopneme, když děj začíná. Po jeho konci stopneme podruhé.

use Time::HiRes;
my($stop1, $stop2);
my @pole;

$stop1 = Time::HiRes::time();

for(my $i=0; $i<1_000_000; $i++){
    $pole[$i] = $i**2;
}

$stop2 = Time::HiRes::time();

print "Výsledek: ", $stop2-$stop1, "\n";

Měření rychlosti běhu programu pomocí modulu Benchmark

Výkonostní testy jsou v Perlu ale obvykle záležitostí modulu Benchmark. Ten již máte s největší pravděpodobností v systému předinstalován.

Výše uvedený kód bychom mohli přepsat za pomoci modulu Benchmark. Tím získáme i podprobnější informace.

use Benchmark;
my($stop1, $stop2);
my @pole;

$stop1 = new Benchmark;

for(my $i=0; $i<1_000_000; $i++){
    $pole[$i] = $i**2;
}

$stop2 = new Benchmark;

print "Cas: ", timestr(timediff($stop2, $stop1)), "\n";

Přehled funkcí v Benchmark

Benchmark zpřístupňuje mimo již uvedených timediff a timestr několik dalších funkcí, pomocí nichž lze měřit čas běhu a porovnávat je. Mimo zmiňovaných budeme používat nejčastěji také následující.

FunkcePopis
timeitzměří dobu provádění kódu
timethisspustí několikkrát úsek kódu a změří dobu provádění
timethesespustí několikkrát několik úseků kódu a změří doby provádění
countitzměří, kolikkrát proběhl úsek kódu ve specifikovaném čase
cmpthesetiskne výsledky porovnání několika úseků kódu v tabulce (touto funkcí již jsme se zabývali při měření rychlostí regulárních výrazů)

Nejjednodušší funkcí ze všech je timeit. Na základě počtu opakování a kódu provede výkonostní test a vrátí objekt typu Benchmark. Tedy v podstatě to, co jsme dělali v obou příkladech.

Kód je třeba uvést tak, jako kdyby měl být předán funkci eval. Musíme zabránit, aby byl vyhodnocen dříve, než bude předán funkci timeit, neboť by tak byl celý test znehodnocen. Použijeme tedy apostrofy.

$i=0;
my $o = timeit(1_000_000, '$pole[$i] = $i**2; $i++');
print timestr($o);

Můžeme si ukázat, jak vypadá výstup po volání timeit. Nejcennějším údajem bude většinou údaj počet_běhů/s.

4 wallclock secs ( 4.37 usr + 0.19 sys = 4.56 CPU) @ 1096491.23/s (n=5000000)

Podobně funguje také další funkce, timethis. Nejzřetelnější rozdíly oproti timeit jsou v tom, že timethis výsledky přímo tiskne a že lze zadat místo počtu cyklů záporné číslo. To znamená čas násobený -1, po který bude testování běžet.

my $i=0;
timethis(5_000_000, '$pole[$i] = $i**2; $i++');

Doba běhu části kódu je ale v podstatě nicneříkající. Smysl dostává až tehdy, když ji vztáhneme k nějakému srovnatelnému údaji. Proto ve většině případů oceníme spíše funkce k porovnávání. Jednou z nich je funkce timethese, která použije timethis na několik různých úseků.

Porovnání dvou programů

Další funkcí na porovnávání více úseků je cmpthese, kterou jsme siž představili v 25. dílu.

Zkusíme si porovnat rychlosti následujících dvou podprogramů.

sub bubblesort {
  my @a = @_;
  foreach $i (reverse 0..$#a) {
    foreach (0..$i-1) {
        ($a[$_],$a[$_+1]) = ($a[$_+1],$a[$_]) if ($a[$_] > $a[$_+1]);
    }
  }
  return @a;
}

sub quicksort {
  @_ or return();
  my $p = shift;
  return (quicksort(grep $_ < $p, @_), $p, quicksort(grep $_ >= $p, @_));
}

Vygenerujeme tedy náhodnou posloupnost čísel a ty se potom pokusíme seřadit.

my @cisla;
for(my $i=0; $i<100; $i++){
    $cisla[$i] = int rand 100;
}

Pokud chceme zobrazit co nejvíce získaných dat, je výhodné použít cmpthese i timethese najednou.

use Benchmark qw(cmpthese timethese);
$o = timethese(-5, {
    "bubble sort" => sub{bubblesort(@cisla)},
    "quick sort" => sub{quicksort(@cisla)},
    "perl sort" => sub{sort {$a<=>$b} @cisla;},
});
cmpthese($o);

Nyní spustíme program. Výsledek by měl vypadat přibližně takto. Nelze sice objektivně srovnávat výsledky vestavěného příkazu sort s výše uvedenými podprogramy, ale výsledek je jistě zajímavý.

Benchmark: running bubble sort, perl sort, quick sort for at least 5 CPU seconds...
bubble sort:  5 wallclock secs ( 5.21 usr +  0.01 sys =  5.22 CPU) @ 166.86/s (n=871)
  perl sort:  4 wallclock secs ( 5.45 usr +  0.00 sys =  5.45 CPU) @ 3065623.49/s (n=16707648)
 quick sort:  6 wallclock secs ( 5.32 usr +  0.00 sys =  5.32 CPU) @ 2454.14/s (n=13056)
                 Rate bubble sort  quick sort   perl sort
bubble sort     167/s          --        -93%       -100%
quick sort     2454/s       1371%          --       -100%
perl sort   3065623/s    1837162%     124817%          --

Verze pro tisk

pridej.cz

 

DISKUZE

Nejsou žádné diskuzní příspěvky u dané položky.



Příspívat do diskuze mohou pouze registrovaní uživatelé.
> Vyhledávání software
> Vyhledávání článků

17.4.2018 0:46 /František Kučera
Dubnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 4. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tématem tohoto srazu bude OpenStreetMap (OSM) aneb svobodné mapy.
Přidat komentář

16.3.2018 22:01 /František Kučera
Kulatý OpenAlt sraz v Praze oslavíme klasicky: u limonády a piva! Přijďte si posedět, dát si dobré jídlo a vybrat z mnoha piv do restaurace Kulový blesk, který najdete v centru Prahy nedaleko metra I. P. Pavlova na adrese Sokolská 13, Praha 2. Sraz se koná ve čtvrtek 22. března a začínáme v 18:00. Heslo: OpenAlt. Vezměte s sebou svoje hračky! Uvítáme, když si s sebou na sraz vezmete svoje oblíbené hračky. Jestli máte nějaký drobný projekt postavený na Arduinu, nějakou zajímavou elektronickou součástku, či třeba i pěkný úlovek z crowdfundingové akce, neváhejte. Oslníte ostatní a o zábavu bude postaráno.
Přidat komentář

13.2.2018 0:41 /František Kučera
Únorový pražský sraz OpenAltu se koná 15. 2. 2018 a tentokrát se vydáme na návštěvu do jednoho pražského datacentra. Sejdeme se v 17:50 v severovýchodní části nástupiště tramvajové zastávky Koh-I-Noor. Po exkurzi se přesuneme do restaurace U Pštrosa (Moskevská 49), kde probereme tradiční témata (svobodný software a hardware, DIY, CNC, SDR, 3D tisk…) a tentokrát bude k vidění i IoT brána od The Things Network.
Přidat komentář

11.2.2018 23:11 /Petr Ježek
Hledáte lehký a rychlý prolížeč PDF souborů? Pokud vás již omrzelo čekat na načítání stránek či jiné nešvary, zkuste xreader.
Přidat komentář

11.2.2018 20:35 /Redakce Linuxsoft.cz
Třetí ročník odborné IT konference na téma Cloud computing v praxi proběhne ve čtvrtek 1. března 2018 v konferenčním centru Vavruška, v paláci Charitas, Karlovo náměstí 5, Praha 2 (u metra Karlovo náměstí) od 9:00 hod. dopoledne do cca 16 hod. odpoledne. Konference o trendech v oblasti cloud computingu nabídne i informace o konkrétních možnostech využívání cloudů a řešení vybraných otázek souvisejících s provozem IT infrastruktury.
Přidat komentář

15.1.2018 0:51 /František Kučera
První letošní pražský sraz se koná již tento čtvrtek 18. ledna od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Vítáni jsou všichni příznivci svobodného softwaru a hardwaru, ESP32, DIY, CNC, SDR nebo dobrého piva. Prvních deset účastníků srazu obdrží samolepku There Is No Cloud… just other people's computers. od Free Software Foundation.
Přidat komentář

14.11.2017 16:56 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě DIY, CNC, SDR nebo morseovka? Přijď na sraz spolku OpenAlt – tradičně první čtvrtek před třetím pátkem v měsíci: 16. listopadu od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).
Přidat komentář

12.11.2017 11:06 /Redakce Linuxsoft.cz
PR: 4. ročník odborné IT konference na téma Datová centra pro business proběhne již ve čtvrtek 23. listopadu 2017 v konferenčním centru Vavruška, v paláci Charitas, Karlovo náměstí 5, Praha 2 (u metra Karlovo náměstí) od 9:00. Konference o návrhu, budování, správě a efektivním využívání datových center nabídne odpovědi na aktuální a často řešené otázky, např Jaké jsou aktuální trendy v oblasti datových center a jak je využít pro vlastní prospěch? Jak zajistit pro firmu či jinou organizaci odpovídající služby datových center? Podle jakých kritérií vybrat dodavatele služeb? Jak volit součásti infrastruktury při budování či rozšiřování vlastního datového centra? Jak efektivně spravovat datové centrum? Jak eliminovat možná rizika? apod.
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

20.2.2018 18:48 / Ivan Majer
portal

20.2.2018 15:57 / Jan Havel
Jak využíváte služby cloudu v podnikání?

16.1.2018 1:08 / Ivan Pittner
verejna ip od o2 ubuntu

15.1.2018 17:26 / Mira Harvalik
Re: Jak udělat HTML/Javascript swiping gallery do mobilu?

30.12.2017 20:16 / Michal Knoll
odmocnina

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2018) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze