Perl-users.jp - 日本のPerlユーザのためのハブサイト # http://perl-users.jp/ YAPC::Asia 2008 で Michael Schwern は「SEO に有効な独自ドメインを取って、もっと Perl 初心者が集まりやすい nice な Perl の情報を集めたサイトを作れ！」といったので Perl-users.jp ドメインを取って、ここに Perl-users.jp を開始します。 ...
「輝け！全日本最強 CPAN Author 決定選手権 2007」完全版 # http://d.hatena.ne.jp/charsbar/20080522/1211428790 The CPANTS mulitplayer online game の日本人版を見ていたところ、後輩 と自分を発見。後輩、善戦。ワシ、もっとがんがれ。超がんがれ ...
stfuawsc # と、2 件書いて、つくづく stfuawsc だなぁ。。。と orz ワシ、超がんがれ
FindBin::libs が激しく便利そう # おいぬま日報(不定期) 経由。忘れないようにメモ
使うものじゃなくて作るもの # via New Generation Chronicle：開拓者から改革者へ ネタで未来を切り開く男 大沢和宏 (2/6) - ITmedia エンタープライズ メリットは、自分で作ってるので手足のように使える、Catalystとかの嫌な部分が体感できた。そんな感じです。やっぱりフレームワークは使うものじゃなくて作るものだと思うので、そろそろSoozyの次の別のフレームワークを作ろうとしています。 ...
Template::Plugin::TruncateByWord # UTF-8 な文章の概要（「あいうえおかきくけこ」を「あいうえお。。。」）とか表示するのに Template-Toolkit でやってしまいたいなぁ、と思った 本当は Template-Toolkit でフラグ付 UTF-8 を上手に扱うワザを身につければいいのだろう、とは思うのだが、今使いたい。今欲しい ...
Template::Plugin::TruncateByWord 再考 # もうちょっと探して似たようなものがなければ、pod 書いて公開するか とか言った手前 、調べてみた 「文字数」ってのは見つからなかったので公開しようとしたが、文字コードの自動判別なんかいらなくね？ それよりも、文字コード自分で指定したいんじゃね？ って思ったのでそれをまず修正することにした ...
二年前の日記を見てプチ鬱 # 喉元過ぎれば、の可能性ありなので書いておく 二年前 の日記で DateTime::Format::DateParse をあつかっている にもかかわらず、最近やった仕事でまんま二年前に「今までやってた」とかいう手法に近いことをやっている自分が気にいらない ...
Template::Plugin::TruncateByWord (3) # こんなもんでいいか package Template::Plugin::TruncateByWord; use strict; use warnings; our $VERSION = '0.1'; use Template::Plugin::Filter; use base 'Template::Plugin::Filter'; use Encode; our $FILTER_NAME_DEFAULT = 'truncate_by_word'; our $ORG_ENC_DEFAULT = 'utf8'; sub init { my $self = shift; $self->{_DYNAMIC} = 1; $self->install_filter($self->{_CONFIG}->{name}||$FILTER_NAME_DEFAULT); $self->{_CONFIG}->{enc} ||= $self->{_ARGS}->[0] || $ORG_ENC_DEFAULT; return $self; } sub filter { my($self, $string, $args, $conf) = @_; return '' unless $string; # decode my $org_enc; unless ( utf8::is_utf8($string) ) { $org_enc = $self->{_CONFIG}->{enc}; $string = Encode::decode($org_enc, $string); } my $org_length = CORE::length($string); my $length = $args->[0] || $org_length; return if $length =~ /\\D/; $string = CORE::substr($string, 0, $length); my $suffix = $args->[1]||''; # revive encode $string = Encode::encode($org_enc, $string) if $org_enc; return $org_length > $length ? $string.$suffix : $string ; } 1;
Template::Plugin::TruncateByWord 0.1 公開 # Template::Plugin::TruncateByWord を公開 [% "あいうえお" | truncate_by_word(3, "。。。") %] # result あいう。。。 って感じ。こういうものの英語ドキュメントは困るなぁ。UTF8 で書いて、ひらがないれてしまってもいいのかな ...