annotate mayachemtools/lib/TimeUtil.pm @ 0:73ae111cf86f draft

Uploaded
author deepakjadmin
date Wed, 20 Jan 2016 11:55:01 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1 package TimeUtil;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3 # $RCSfile: TimeUtil.pm,v $
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
4 # $Date: 2015/02/28 20:47:30 $
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
5 # $Revision: 1.9 $
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
6 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
7 # Author: Manish Sud <msud@san.rr.com>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
8 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
9 # Copyright (C) 2015 Manish Sud. All rights reserved.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
10 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
11 # This file is part of MayaChemTools.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
12 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
13 # MayaChemTools is free software; you can redistribute it and/or modify it under
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
14 # the terms of the GNU Lesser General Public License as published by the Free
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
15 # Software Foundation; either version 3 of the License, or (at your option) any
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
16 # later version.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
17 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
18 # MayaChemTools is distributed in the hope that it will be useful, but without
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
19 # any warranty; without even the implied warranty of merchantability of fitness
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
20 # for a particular purpose. See the GNU Lesser General Public License for more
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
21 # details.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
22 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
23 # You should have received a copy of the GNU Lesser General Public License
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
24 # along with MayaChemTools; if not, see <http://www.gnu.org/licenses/> or
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
25 # write to the Free Software Foundation Inc., 59 Temple Place, Suite 330,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
26 # Boston, MA, 02111-1307, USA.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
27 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
28
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
29 use strict;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
30 use Exporter;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
31 use Time::localtime ();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
32
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
33 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
34
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
35 @ISA = qw(Exporter);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
36 @EXPORT = qw(CTimeStamp FPFileTimeStamp ISO8601Date ISO8601Time ISO8601TimeStamp PDBFileTimeStamp SDFileTimeStamp TimeStamp MonthNameToNumber MonthNumberToFullName MonthNumberToAbbreviatedName WeekDayNameToNumber WeekDayNumberToFullName WeekDayNumberToAbbreviatedName);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
37 @EXPORT_OK = qw();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
38 %EXPORT_TAGS = (all => [@EXPORT, @EXPORT_OK]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
39
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
40 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
41 # Initialize package data...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
42 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
43 my(%MonthNameToNumber, %MonthNumberToFullNameName, %MonthNumberToAbbreviatedName, %WeekDayNameToNumber, %WeekDayNumberToFullName, %WeekDayNumberToAbbreviatedName);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
44 _InitializeData();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
45
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
46 # Return CTime as default time stamp for MayaChemTools...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
47 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
48 sub TimeStamp {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
49 return CTimeStamp();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
50 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
51
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
52 # Generate ctime time stamp...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
53 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
54 # Format: WDay Mon MDay HH:MM:SS YYYY
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
55 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
56 sub CTimeStamp {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
57 my($CTimeStamp);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
58
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
59 # Take out an extra space inserted between month name and day by ctime...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
60 $CTimeStamp = Time::localtime::ctime();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
61 $CTimeStamp =~ s/[ ]+/ /g;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
62
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
63 return $CTimeStamp;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
64 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
65
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
66 # Generate ISO 8601 timestamp in extended format...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
67 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
68 # Format: [YYYY]-[MM]-[DD]T[hh]:[mm]:[ss]
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
69 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
70 sub ISO8601TimeStamp {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
71 my($TimeStamp, $Sec, $Min, $Hour, $MDay, $Mon, $Year, $WDay, $YDay, $IsDst);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
72
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
73 ($Sec, $Min, $Hour, $MDay, $Mon, $Year, $WDay, $YDay, $IsDst) = _LocalTime();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
74
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
75 $TimeStamp = sprintf "%4i-%02i-%02iT%02i:%02i:%02i", $Year, $Mon, $MDay, $Hour, $Min, $Sec;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
76
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
77 return $TimeStamp;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
78 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
79
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
80 # Generate ISO 8601 date...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
81 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
82 # Format: [YYYY]-[MM]-[DD]
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
83 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
84 sub ISO8601Date {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
85 my($Date, $Sec, $Min, $Hour, $MDay, $Mon, $Year, $WDay, $YDay, $IsDst);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
86
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
87 ($Sec, $Min, $Hour, $MDay, $Mon, $Year, $WDay, $YDay, $IsDst) = _LocalTime();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
88
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
89 $Date = sprintf "%4i-%02i-%02i", $Year, $Mon, $MDay;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
90
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
91 return $Date;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
92 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
93
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
94 # Generate ISO 8601 time in extended format...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
95 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
96 # Format: [hh]:[mm]:[ss]
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
97 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
98 sub ISO8601Time {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
99 my($Time, $Sec, $Min, $Hour);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
100
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
101 ($Sec, $Min, $Hour) = _LocalTime();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
102
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
103 $Time = sprintf "%02i:%02i:%02i", $Hour, $Min, $Sec;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
104
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
105 return $Time;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
106 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
107
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
108 # Generate MayaChemTools' FP file timestamp...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
109 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
110 sub FPFileTimeStamp {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
111 return CTimeStamp();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
112 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
113
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
114 # Generate PDB file timestamp...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
115 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
116 sub PDBFileTimeStamp {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
117 my($TimeStamp, $Sec, $Min, $Hour, $MDay, $Mon, $Year, $WDay, $YDay, $IsDst, $MonthName);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
118
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
119 ($Sec, $Min, $Hour, $MDay, $Mon, $Year, $WDay, $YDay, $IsDst) = _LocalTime();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
120
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
121 $MonthName = uc MonthNumberToAbbreviatedName($Mon);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
122 $Year = substr($Year, -2, 2);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
123
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
124 $TimeStamp = sprintf "%02i-%3s-%2i", $MDay, $MonthName, $Year;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
125
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
126 return $TimeStamp;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
127 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
128
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
129 # Generate SD file timestamp...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
130 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
131 sub SDFileTimeStamp {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
132 my($TimeStamp, $Sec, $Min, $Hour, $MDay, $Mon, $Year, $WDay, $YDay, $IsDst);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
133
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
134 ($Sec, $Min, $Hour, $MDay, $Mon, $Year, $WDay, $YDay, $IsDst) = _LocalTime();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
135
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
136 $Year = substr($Year, -2, 2);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
137
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
138 $TimeStamp = sprintf "%02i%02i%02i%02i%02i", $Mon, $MDay, $Year, $Hour, $Min;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
139
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
140 return $TimeStamp;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
141 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
142
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
143 # Get local time with modifications to data returned by native localtime function...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
144 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
145 sub _LocalTime {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
146 my($Sec, $Min, $Hour, $MDay, $Mon, $Year, $WDay, $YDay, $IsDst);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
147
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
148 ($Sec, $Min, $Hour, $MDay, $Mon, $Year, $WDay, $YDay, $IsDst) = localtime;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
149
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
150 $Mon += 1;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
151 $Year += 1900;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
152
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
153 return ($Sec, $Min, $Hour, $MDay, $Mon, $Year, $WDay, $YDay, $IsDst);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
154 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
155
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
156 # Return month number from full or three letter abbreviated month name...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
157 sub MonthNameToNumber {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
158 my($Name) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
159
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
160 return (exists $MonthNameToNumber{lc $Name}) ? $MonthNameToNumber{lc $Name} : '';
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
161 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
162
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
163 # Return full month name from month number...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
164 sub MonthNumberToFullName {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
165 my($Number) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
166
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
167 return (exists $MonthNumberToFullNameName{$Number}) ? $MonthNumberToFullNameName{$Number} : '';
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
168 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
169
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
170 # Return three letter abbreviated month name from month number...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
171 sub MonthNumberToAbbreviatedName {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
172 my($Number) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
173
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
174 return (exists $MonthNumberToAbbreviatedName{$Number}) ? $MonthNumberToAbbreviatedName{$Number} : '';
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
175 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
176
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
177 # Return week daty number from full or three letter abbreviated week day name...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
178 sub WeekDayNameToNumber {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
179 my($Name) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
180
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
181 return (exists $WeekDayNameToNumber{lc $Name}) ? $WeekDayNameToNumber{lc $Name} : '';
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
182 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
183
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
184 # Return full week day name from week day number...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
185 sub WeekDayNumberToFullName {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
186 my($Number) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
187
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
188 return (exists $WeekDayNumberToFullName{$Number}) ? $WeekDayNumberToFullName{$Number} : '';
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
189 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
190
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
191 # Return three letter abbreviated week day name from week day number...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
192 sub WeekDayNumberToAbbreviatedName {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
193 my($Number) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
194
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
195 return (exists $WeekDayNumberToAbbreviatedName{$Number}) ? $WeekDayNumberToAbbreviatedName{$Number} : '';
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
196 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
197
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
198 # Initialize week/month day/name data...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
199 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
200 sub _InitializeData {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
201
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
202 %MonthNameToNumber = ('january' => 1, 'february' => 2, 'march' => 3, 'april' => 4,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
203 'may' => 5, 'june' => 6, 'july' => 7, 'august' => 8,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
204 'september' => 9, 'october' => 10, 'november' => 11, 'december' => 12,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
205 'jan' => 1, 'feb' => 2, 'mar' => 3, 'apr' => 4,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
206 'may' => 5, 'jun' => 6, 'jul' => 7, 'aug' => 8,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
207 'sep' => 9, 'oct' => 10, 'nov' => 11, 'dec' => 12);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
208
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
209 %MonthNumberToFullNameName = (1 => 'January', 2 => 'February', 3 => 'March', 4 => 'April',
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
210 5 => 'May', 6 => 'June', 7 => 'July', 8 => 'August',
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
211 9 => 'September', 10 => 'October', 11 => 'November', 12 => 'December');
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
212
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
213 %MonthNumberToAbbreviatedName = (1 => 'Jan', 2 => 'Feb', 3 => 'Mar', 4 => 'Apr',
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
214 5 => 'May', 6 => 'Jun', 7 => 'Jul', 8 => 'Aug',
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
215 9 => 'Sep', 10 => 'Oct', 11 => 'Nov', 12 => 'Dec');
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
216
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
217 %WeekDayNameToNumber = ('sunday' => 1, 'monday' => 2, 'tuesday' => 3, 'wednesday' => 4,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
218 'thursday' => 5, 'friday' => 6, 'saturday' => 7,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
219 'sun' => 1, 'mon' => 2, 'tue' => 3, 'wed' => 4,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
220 'thu' => 5, 'fri' => 6, 'sat' => 7);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
221
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
222 %WeekDayNumberToFullName = (1 => 'Sunday', 2 => 'Monday', 3 => 'Tuesday',
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
223 4 => 'Wednesday', 5 => 'Thursday', 6 => 'Friday', 7 => 'Saturday');
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
224
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
225 %WeekDayNumberToAbbreviatedName = (1 => 'Sun', 2 => 'Mon', 3 => 'Tue',
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
226 4 => 'Wed', 5 => 'Thu', 6 => 'Fri', 7 => 'Sat');
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
227 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
228
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
229 1;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
230
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
231 __END__
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
232
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
233 =head1 NAME
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
234
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
235 TimeUtil
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
236
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
237 =head1 SYNOPSIS
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
238
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
239 use TimeUtil;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
240
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
241 use TimeUtil qw(:all);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
242
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
243 =head1 DESCRIPTION
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
244
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
245 B<TimeUtil> module provides the following functions:
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
246
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
247 CTimeStamp, FPFileTimeStamp, ISO8601Date, ISO8601Time, ISO8601TimeStamp,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
248 MonthNameToNumber, MonthNumberToAbbreviatedName, MonthNumberToFullName,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
249 PDBFileTimeStamp, SDFileTimeStamp, TimeStamp, WeekDayNameToNumber,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
250 WeekDayNumberToAbbreviatedName, WeekDayNumberToFullName
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
251
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
252 =head1 FUNCTIONS
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
253
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
254 =over 4
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
255
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
256 =item B<CTimeStamp>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
257
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
258 $CTimeStamp = CTimeStamp();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
259
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
260 Returns B<CTimeStamp> string using the following format: WDay Mon MDay HH:MM:SS YYYY
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
261
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
262 =item B<FPFileTimeStamp>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
263
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
264 $FPFileTimeStamp = FPFileTimeStamp();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
265
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
266 Returns fingerints B<FP> file time stamp string for MayaChemTools package. It corresponds to
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
267 B<CTimeStamp>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
268
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
269 =item B<ISO8601Date>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
270
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
271 $Date = ISO8601Date();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
272
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
273 Returns ISO8601 B<Date> string using the following format: [YYYY]-[MM]-[DD]
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
274
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
275 =item B<ISO8601Time>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
276
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
277 $Time = ISO8601Time();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
278
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
279 Returns ISO8601 B<Time> string using the following extended format: [hh]:[mm]:[ss]
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
280
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
281 =item B<ISO8601TimeStamp>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
282
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
283 $TimeStamp = ISO8601TimeStamp();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
284
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
285 Returns ISO8601 B<TimeStamp> string using the following extended format: [YYYY]-[MM]-[DD]T[hh]:[mm]:[ss]
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
286
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
287 =item B<MonthNameToNumber>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
288
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
289 $Number = MonthNameToNumber($Name);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
290
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
291 Return month B<Number> for full month I<Name> or three letter abbreviated month I<Name>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
292
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
293 =item B<MonthNumberToAbbreviatedName>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
294
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
295 $AbbrevMonthName = MonthNumberToAbbreviatedName($Number);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
296
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
297 Returns three letter B<AbbrevMonthName> for month I<Number>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
298
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
299 =item B<MonthNumberToFullName>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
300
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
301 $Name = MonthNumberToFullName($Number);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
302
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
303 Returns full month B<Name> for month I<Number>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
304
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
305 =item B<PDBFileTimeStamp>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
306
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
307 $TimeStamp = PDBFileTimeStamp();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
308
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
309 Returns PDB file B<TimeStamp> using the following format: DD-MMM-YY
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
310
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
311 =item B<SDFileTimeStamp>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
312
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
313 $TimeStamp = SDFileTimeStamp();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
314
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
315 Returns SD file B<TimeStamp> using the following format: MMDDYYHHMM
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
316
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
317 =item B<TimeStamp>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
318
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
319 $TimeStamp = TimeStamp();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
320
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
321 Returns deafult I<TimeStamp> for MayaChemTools. It corresponds to B<CTimeStamp>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
322
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
323 =item B<WeekDayNameToNumber>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
324
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
325 $Number = WeekDayNameToNumber($Name);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
326
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
327 Returns week day B<Number> from full week day I<Name> or three letter abbreviated week
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
328 day I<Name>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
329
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
330 =item B<WeekDayNumberToAbbreviatedName>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
331
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
332 $Name = WeekDayNumberToAbbreviatedName($Number);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
333
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
334 Returns three letter abbreviates week day B<Name> for week day I<Number>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
335
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
336 =item B<WeekDayNumberToFullName>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
337
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
338 $Name = WeekDayNumberToFullName($Number);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
339
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
340 Returns full week day B<Name> for week day I<Number>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
341
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
342 =back
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
343
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
344 =head1 AUTHOR
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
345
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
346 Manish Sud <msud@san.rr.com>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
347
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
348 =head1 SEE ALSO
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
349
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
350 FileUtil.pm, TextUtil.pm
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
351
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
352 =head1 COPYRIGHT
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
353
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
354 Copyright (C) 2015 Manish Sud. All rights reserved.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
355
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
356 This file is part of MayaChemTools.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
357
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
358 MayaChemTools is free software; you can redistribute it and/or modify it under
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
359 the terms of the GNU Lesser General Public License as published by the Free
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
360 Software Foundation; either version 3 of the License, or (at your option)
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
361 any later version.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
362
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
363 =cut