どんぞこ日誌

* [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自体必要なさそうな。

追記：2009-05-23