40行で作るPerl用テンプレートエンジン
60行で作るPHP用テンプレートエンジン やってしまった・・・。 方針： PHPのように＜?php・・・?＞が無いのでそのまま表示と(foreach|if|unless)に対応。[% $c{title} %]で普通に表示(TTっぽい？)[# $c{title} #]でHTMLエスケープ表示package SixtyLinesTemplate; use strict; use warnings; our $VERSION = '0.01'; sub convert { return unless defined(my $str = shift); $str =~ s{&}{&}gso; $str =~ s{<}{<}gso; $str =~ s{>}{>}gso; $str =~ s{\"}{"}gso; $str; } sub include_temp
意図的に難しく書く
内定とかちょーうざったいからここらで話をブッタ切るよ！ 配列をループして全て出力するプログラムを書く場合。（言語はPerl） my @datas = qw(a b c); for my $data ( @datas ) { print $data; } こんな感じになるよね？ これを意図的に難しく書いてみるよ！ my $i = @datas; my $code = sub { -- $i }; while ( 'hoge' ) { my $data = $datas[ @datas - $i ]; print $data; goto LAST unless $code->(); } LAST: さぁあなたもレッツトライ！もっと難しく書いてみてね！
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
