- 133 名前：nobodyさん mailto:sage [2007/10/05(金) 20:35:14 ID:???]
- package hoge;
my $class=shift;
$ENV{'TZ'} = "JST-9";
my ($sec,$min,$hour,$mday,$mon,$year) = gmtime(time + 9*60*60);
my $obj={'sec'->$sec, 'min'->$min, 'hour'->$hour, 'mday'->$mday, 'mon'->$mon, 'year'->$year};
return bless $obj, $class;
1;
適当に書いてみた。あとは時間をｺﾞﾆｮｺﾞﾆｮするだけ、普通に作ったほうがメリット大きい気もするがｷﾆｼﾅｲ!!
ﾖｳｶｿﾏｿ参上===[・∀・]ﾉｼ
