cvs commit: perlfaq perlfaq4.pod
[email protected] (brian d foy) 11 Mar 2005 16:27:53 -0000
| Newsgroups | perl.cvs.perlfaq |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 05/03/11 08:27:53
Modified: . perlfaq4.pod
Log:
* Fixed a wrong word: the answer is talking about "day of the year"
but mistakenly says "day of the week". It's the slice on localtime
that gives it away.
Revision Changes Path
1.61 +3 -2 perlfaq/perlfaq4.pod
Index: perlfaq4.pod
===================================================================
RCS file: /cvs/public/perlfaq/perlfaq4.pod,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -r1.60 -r1.61
--- perlfaq4.pod 14 Feb 2005 18:24:01 -0000 1.60
+++ perlfaq4.pod 11 Mar 2005 16:27:53 -0000 1.61
@@ -1,6 +1,6 @@
=head1 NAME
-perlfaq4 - Data Manipulation ($Revision: 1.60 $, $Date: 2005/02/14 18:24:01 $)
+perlfaq4 - Data Manipulation ($Revision: 1.61 $, $Date: 2005/03/11 16:27:53 $)
=head1 DESCRIPTION
@@ -389,7 +389,7 @@
=head2 How do I find the day or week of the year?
-The localtime function returns the day of the week. Without an
+The localtime function returns the day of the year. Without an
argument localtime uses the current time.
$day_of_year = (localtime)[7];
@@ -422,6 +422,7 @@
sub get_century {
return int((((localtime(shift || time))[5] + 1999))/100);
}
+
sub get_millennium {
return 1+int((((localtime(shift || time))[5] + 1899))/1000);
}