07/10/05 20:35:14
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;
適当に書いてみた。あとは時間をｺﾞﾆｮｺﾞﾆｮするだけ、普通に作ったほうがメリット大きい気もするがｷﾆｼﾅｲ!!
ﾖｳｶｿﾏｿ参上===[・∀・]ﾉｼ