どんぞこ日誌

* [Perl] Template::Stash::XS使用時のlength

　template-toolkitでunicode文字列に対してバーチャルメソッドlengthを使うと、文字数ではなく、バイト数が返ってきて、でもsplitとかmatchとかはちゃんとunicodeに対する動作をしてます。
　　だいたいTemplate::VMethods::text_length自体呼ばれてないし、ってなわけで色々試してたら、Template::Stash::XSを使ったときだけ生じるので、Stash.xsをみたらscalar_dot_lengthで定義されてました。

 use strict;
 use utf8;
 use Template;
 my $tmpl = Template->new();
 my $ret = '';
 my $body =<<BODY;
  length     -- [% str.length %]
  split_size -- [% str.split('').size %]
 BODY
 
 $tmpl->process( \$body, { str => 'あいうえお' }, \$ret );

↑本当は両方5になると思うのだけど、Stash::XSを利用している場合はlengthが15。で、下記のようなパッチ（Template-2.20）をあてたのですが、これって今まで問題にならなかったのかしら？　あるいは私が何か勘違いをしているのか……

 --- xs/Stash.xs.bak	2009-02-16 11:20:09.000000000 +0900
 +++ xs/Stash.xs	2009-02-16 11:41:15.000000000 +0900
 @@ -1125,8 +1125,16 @@
  /* scalar.length */
  static SV *scalar_dot_length(pTHX_ SV *sv, AV *args) {
      STRLEN length;
 +#if PERL_VERSION >= 8 /* Perl 5.8 and later */
 +    if ( SvUTF8(sv) ) {
 +        length = sv_len_utf8( sv );
 +    }
 +    else {
 +        length = sv_len( sv );
 +    }
 +# else
      SvPV(sv, length);
 -
 +# endif
      return sv_2mortal(newSViv((IV) length));
  }

* [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