[perl] Perlã§åŒã˜ã‚³ãƒ¼ãƒ‰ã‚’é•ã†ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã™ã‚‹ - 酒日記 ã¯ã¦ãªæ”¯åº—複数ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§åŒã˜ã‚³ãƒ¼ãƒ‰ã‚’実行ã—ã¦Benchmark.pmã§è¨ˆæ¸¬ã—ãŸã„ã€ã¨ã„ã†ã‚±ãƒ¼ã‚¹ã«ã“ã†æ›¸ã‘ã°ã„ã„ã‹ãªã€ã¨ã„ã†ä¾‹ã€‚ 普通ã«Benchmark.pmを使ã£ã¦ã—ã¾ã†ã¨åŒä¸€ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’é•ã†ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§è¤‡æ•°èªã¿è¾¼ã‚€ã“ã¨ãŒã§ããªã„ãŸã‚〠ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã”ã¨ã«åプãƒã‚»ã‚¹ã‚’ fork åプãƒã‚»ã‚¹ã§ use lib ã—㦠@INC ã‚’è¿½åŠ ã—ã¦ã‹ã‚‰ use 計測ã—ãŸçµæžœã‚’ファイルã«ä¿å˜ã—ã¦è¦ªãƒ—ãƒã‚»ã‚¹ã§é›†ç´„ã€è¡¨ç¤º ã¨ã„ã†æµã‚Œã§æ›¸ãã¾ã™ã€‚ use strict; use Benchmark qw/ :all /; use File::Temp qw/ tempfile /; use Storable qw/ nstore retrieve /; # 計測ã—ãŸã„コード my $code = sub { my $c = Cache::Redis->new; for ( 1 .. 10 ) { $c->s
![[perl] Perlã§åŒã˜ã‚³ãƒ¼ãƒ‰ã‚’é•ã†ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã™ã‚‹ - 酒日記 ã¯ã¦ãªæ”¯åº—](https://cdn-ak-scissors.b.st-hatena.com/image/square/2f4f2e1bfae364f13d3bb5210f048b6e928302dc/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F13208692334729889028%2F8454420450078126085%2F1419604085)
ã¤ã„ã«é¡•åœ¨åŒ–ã—ã¯ã˜ã‚㟠Exception リスク
{{#tags}}- {{label}}
{{/tags}}