あたらしものずきっ！

試してみたものとか、遊んでみたものを色々記してみます。

フレームワークを使わない方向で作ってみる

Perl

必死になって軽量CGIフレームワークの使い方を調べてたけど、なんか本末転倒な感じになってきたので、一旦フレームワークのことはわすれることにした。

以前とにかくprintで表示する状態だったのを、それぞれパーツに分けて処理する形に変更。多分template使うとあっさりいくんだろうけど未だperldoc見てないので。

#!/usr/local/bin/perl

use warnings;
use strict;

print "Content-type: text/html\n\n";
&template_head();
&template_body();
&template_tail();

sub template_head{
    print "<html>\n";
    print "<head>\n";
    print "<title>test</title>\n";
    print "</head>\n";
}

sub template_body{
    print "<body>\n";
    print "<h1>test</h1>\n";
}

sub template_tail{
    print "</body>\n";
    print "</html>\n";
}

これに環境変数で分岐を加えてみる。CGIはノード操作がめんどくさいので使ってない。