iandeth. - Benchmark モジュールã®ä½¿ã„æ–¹ã€çµæžœæƒ…å ±ã®èªã¿æ–¹ä»•äº‹ã§ Benchmark モジュールを使ã†æ©Ÿä¼šãŒã‚ã£ãŸã®ã§ã€ä½¿ã„方＆çµæžœæƒ…å ±ã®èªã¿å–り方をã¾ã¨ã‚ã¦ã¿ã¾ã—ãŸã€‚基本的ã«ã¯ perldoc èªã‚ã°ã‚ªãƒ¼ãƒ«ã‚ªãƒƒã‚±ãƒ¼ã§ã—ょ？ã¨æ€ã£ã¦ã„ãŸã®ã§ã™ãŒã€docs ã§ã¯çµæžœæƒ…å ±ã®èªã¿æ–¹ã«ã¤ã„ã¦ã¯ã‚ã‚“ã¾ã‚Šè§¦ã‚Œã‚‰ã‚Œã¦ã„ãªã‹ã£ãŸç‚ºã€ã‚¬ãƒƒãƒ„リ補足ã—ã¦ã¿ã¾ã—ãŸã€‚ 基本 ã¨ã‚る２種類ã®ã‚³ãƒ¼ãƒ‰ã®å®Ÿè¡Œé€Ÿåº¦ã‚’比較計測ã™ã‚‹ã«ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªã‚½ãƒ¼ã‚¹ã‚’記述ã—ã¾ã™ï¼š bench.pl #!/usr/bin/perl use strict; use warnings; use Benchmark qw(timethese cmpthese); sub hogeLoop1 { my $str; for my $i (1 .. 10000){ $str .= $i } } sub hogeLoop2 { my $str; for my $i (1 .. 20000){ $str .= $i
benchmarkã—ã¦ã¿ãŸã€‚ - tetsunosukeã®notebook
{{#tags}}- {{label}}
{{/tags}}