[僕] オブジェクト指向万歳!

僕ト云フ事

たろマークはてなブックマーク

2004年04月06日

[oop][perl] オブジェクト指向万歳!

どし~Σ(゚口゚;
回りくどいし、面倒な分、楽になるトコは非常に楽だw
メインが非常に読みやすくなった。
コメントもういらねぇ<後で困るのは自分ですw

継承とか、多重継承とか使ってない分、
オブジェクト指向といえるものかどうかは分かりませんがw

あれよあれよという間に、ログイン/アウトなCGIが完成しちまったです。
CGI::Sessionはスバラシイ!
CPAN万歳!

びるずさんに命名してもらったモジュールを使ったときはこんな感じ(ぉ

my $tt = TToolKit->new;
$tt->Output($html);

あぁ、Outputするんだな、と言う感じですっきりしていて、分かりやすい。
#なんでいちいち、Outputなんてメソッド用意したかは聞かないでくださいw
#printすればいいじゃんとかw
#HTML::Template使えよとか。CGIモジュールは出力には使わねぇのかよ、とか。
#ん?メソッド?インスタンス?(混乱w

あー、こんなこと書いてる間に、
もう少し上手い方法見つけたΣ(゚口゚;

# ログインチェック
my ($login_flag,$error) = $login->check($q,$session,$dbh);
これ、戻り値二つも必要ないなΣ(゚口゚;
エラーがあるかないかだけで判別すりゃいいじゃん_| ̄|○

そんなこんなで、もう少し楽しみます~w

トラックバック

このエントリーのトラックバックURL:
http://vkgtaro.jp/cgi-bin/mt/mt-tb.cgi/82

コメントを投稿