[kansaipm] 車輪を再開発してしまっているかもな今日この頃

Ktat ktat at kawachi.zaq.ne.jp
Sat Feb 28 23:01:20 CST 2004


加藤@おーさかです。

最初に適当にさがしてなくって、後で調べたら、やっぱりあったとか、
作った後に、もしかして、こんな名前だったのかもとかって、調べたら、あったとか...
Cookbook買ったら載ってんのかな(^^;
そういうものが、Webで簡単に見付かればいいんだけど。

Date::Weekday ... 休日をとばすもの(Date::Business があった)
 http://www.pure.ne.jp/~learner/cgi-bin/diary/Master/upload/Weekday.pm

 # Date::Simple 2.x系がないと駄目かもしれません。

 my $d = new Date::Weekday;
 $d += 10; # 10営業日後

Feignbase ... 継承っぽいもの(違うけど、Class::Facadeで足りる話かも)
 http://www.pure.ne.jp/~learner/cgi-bin/diary/Master/upload/Feignbase.pm

 package Hoge;

 use Feignbase
  (
   date => 'Date::Simple',
   cgi  => 'CGI',
   dbh  => ['DBI','connect', "dbi:Pg:dbname=test",'','',{RaiseError => 1, PrintError=>1, AutoCommit => 0}],
  );

 1;

 use Hoge;

 my $hoge = new Hoge;

 $hoge->param(); # CGIのparamメソッド
 $hoge->day(); # Date::Simple の dayメソッド
 my $sth = $hoge->prepare(); # dbh の prepare

 my $cgi = $hoge->cgi; # CGIオブジェクトを返す
 my $date = $hoge->date; # Date::Simpleオブジェクトを返す
 my $dbh = $hoge->dbh; # dbhを返す

-- 
Kato Atsushi (Ktat)
 mailto:atusi at pure.ne.jp
 mailto:ktat at kawachi.zaq.ne.jp



More information about the Kansai-pm mailing list