■2009-02-19
* [Perl][メモ] Template::Stash::XSとVmethodのlength続き
先日のTemplate::Stash::XS使用時のlengthで、unicodeに対応するようパッチをあててみたのですが、そもそもscalar_dot_length使わなくてもよいんじゃないかという気がしてきて、
--- xs/Stash.xs 2009-02-19 14:33:44.000000000 +0900
+++ xs2/Stash_del_len.xs 2009-02-19 14:37:47.000000000 +0900
@@ -115,7 +115,7 @@
{ "join", list_dot_join, NULL, NULL },
{ "keys", NULL, hash_dot_keys, NULL },
/* { "last", list_dot_last, NULL, NULL }, */
- { "length", NULL, NULL, scalar_dot_length },
+/* { "length", NULL, NULL, scalar_dot_length }, */
で
use Benchmark qw( timethese );
use strict;
use utf8;
my $count = 10000;
my $tmpl_pp = Template->new( { STASH => Template::Stash->new() } );
my $tmpl_xs = Template->new( { STASH => Template::Stash::XS->new() } );
my $tmpl_xs2 = Template->new( { STASH => Template::Stash::XS_del_len->new() } );
my $str_unicode = 'あいうえお' x 1000;
my $body = "[% str.length %]";
timethese($count, {
'xs' => sub {
my $ret = '';
$tmpl_xs->process( \$body, { str => $str_unicode }, \$ret );
},
'xs2' => sub {
my $ret = '';
$tmpl_xs2->process( \$body, { str => $str_unicode }, \$ret );
},
'pp' => sub {
my $ret = '';
$tmpl_pp->process( \$body, { str => $str_unicode }, \$ret );
},
});
（Template::Stash::XSは先日のパッチをあてたもの）
結果：
pp: 9 wallclock secs ( 8.12 usr + 0.00 sys = 8.12 CPU) @ 1231.53/s (n=10000) xs: 7 wallclock secs ( 7.32 usr + 0.02 sys = 7.34 CPU) @ 1362.40/s (n=10000) xs2: 7 wallclock secs ( 7.33 usr + 0.01 sys = 7.34 CPU) @ 1362.40/s (n=10000)
ほぼ大差ないのでscalar_dot_length自体必要なさそうな。
[]
