sprintfは速い

#!/usr/bin/perluse utf8; binmode STDIN => ":raw"; binmode STDOUT => ":raw"; binmode STDERR => ":raw";use Benchmark;Benchmark::timethese(300000, { 's_original' =>\&s_original, 's_new' => \&s_new, });sub s_original{ my $a = 'あれ'; my $b = '…

2005-09-24

Perlで定数

技術メモ Perl パフォーマンス

Perlで定数を使いたい。変更を不可にするんじゃなくて、パフォーマンスをアップするために。で、 http://eureka.prits.jp/resources/developer/perl_memo.html によると、定数関数というのを用いるとインライン展開してくれるらしい。で、それを自動でや…

2005-09-24

Perl様には負けます

技術メモ正規表現パフォーマンス

#!/usr/bin/perluse utf8; binmode STDIN => ":raw"; binmode STDOUT => ":raw"; binmode STDERR => ":raw";use Benchmark;Benchmark::timethese(150000, { 's_regex' =>\&s_regex, 's_substr' => \&s_substr, });sub s_regex{ my $a = 'オレオレ詐欺'; if($…