[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