1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
#-*- perl -*-
#
# Copyright (C) 2000 Ken'ichi Fukamachi
#
# $Id$
# $FML$
#
package FML::Date;
=head1 NAME
FML::Date - utilities for date and time
=head1 SYNOPSIS
use FML::Date;
$date = new FML::Date time;
# get the date in $style format
$date->{ logfile_style }
$date->logfile_style
=head1 DESCRIPTION
The style you use follows:
style example
----------------------------------------------
logfile_style 01/01/07 21:06:19
mail_header_style Sun, 7 Jan 2001 21:06:19 +0900
YYYYMMDD 20010107
current_time 200101072106
precise_current_time 20010107210619
=head1 METHOD
You can also method like $date->$style() style.
=item logfile_style()
=item mail_header_style()
=item YYYYMMDD()
=item current_time()
=item precise_current_time()
=cut
require Exporter;
use vars qw($TimeZone);
@ISA = qw(Exporter);
use strict;
use Carp;
sub new
{
my ($class, $time) = @_;
my $type = _date($time);
return bless $type, $class;
}
sub _date
{
my ($time) = @_;
my ($date) = {};
# use the current UTC if $time is not given.
$time ||= time;
my @WDay = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
my @Month = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
$TimeZone ||= '+0900';
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime($time))[0..6];
$date->{'logfile_style'} =
sprintf("%02d/%02d/%02d %02d:%02d:%02d",
($year % 100), $mon + 1, $mday, $hour, $min, $sec);
$date->{'mail_header_style'} =
sprintf("%s, %d %s %d %02d:%02d:%02d %s",
$WDay[$wday], $mday, $Month[$mon],
1900 + $year, $hour, $min, $sec, $TimeZone);
$date->{'YYYYMMDD'} =
sprintf("%04d%02d%02d", 1900 + $year, $mon + 1, $mday);
$date->{'current_time'} =
sprintf("%04d%02d%02d%02d%02d",
1900 + $year, $mon + 1, $mday, $hour, $min);
$date->{'precise_current_time'} =
sprintf("%04d%02d%02d%02d%02d%02d",
1900 + $year, $mon + 1, $mday, $hour, $min, $sec);
return $date;
}
sub logfile_style
{
my ($self, $time) = @_;
my $p = _date($time || time);
$p->{'logfile_style'};
}
sub mail_header_style
{
my ($self, $time) = @_;
my $p = _date($time || time);
$p->{'mail_header_style'};
}
sub YYYYMMDD
{
my ($self, $time) = @_;
my $p = _date($time || time);
$p->{'YYYYMMDD'};
}
sub current_time
{
my ($self, $time) = @_;
my $p = _date($time || time);
$p->{'current_time'};
}
sub precise_current_time
{
my ($self, $time) = @_;
my $p = _date($time || time);
$p->{'precise_current_time'};
}
1;
|
