http://d.hatena.ne.jp/hao_yayoi/20100827/1282843571:titlle=Yacafiの動作を読み解く2より引き続き 86 〜 95行目 86 $yacafi =~ s/### NO PACK\n.+?### NO PACK END\n//sg; 87 $yacafi =~ s/\n__END__\n.+$//s; 88 $yacafi =~ s/'\.\$CURRENT_CLASS\.'/$CU…

Yacafiの動作を読みとく より引き続く。 79 〜 95行目 _pack 79 my $yacafi = _read_file( $INC{'Yacafi.pm'} ); _read_fileについては、143〜147に実装が書かれてる。 143 sub _read_file { 144 my $file = shift; 145 open my $fh, '<', $file or die $fil…

軽量フレームワークの話題が殆ど上がらなくなった感もあり、とってつけたような記事に思われない丁度いいタイミングかなーとか思ったのでやってみることにした。 wget http://svn.coderepos.org/share/lang/perl/Yacafi/trunk/lib/Yacafi.pm 以前Yacafiを使…

Yacafiを使って掲示板をこしらえてみました。そこらへんにあるレンタル掲示板より正直低性能ですが、あくまで学習用途なので。do_*から処理を行い、&_template_param_buildにてそれぞれのテンプレート差し込み用変数をまとめてハッシュとして、templateに流…