# PERL常见问题解答--FAQ(4)--Data: Dates

How do I find the week-of-the-year/day-of-the-year? How can I compare two date strings? How can I take a string and turn it into epoch seconds? How can I find the Julian Day? Does Perl have a year 2000 problem?

### How do I find the week-of-the-year/day-of-the-year?

The day of the year is in the array returned by localtime() (see localtime):

    $day_of_year = (localtime(time()))[7];  or more legibly (in 5.004 or higher):  use Time::localtime;$day_of_year = localtime(time())->yday;


You can find the week of the year by dividing this by 7:

    $week_of_year = int($day_of_year / 7);


Of course, this believes that weeks start at zero.

### How can I compare two date strings?

Use the Date::Manip or Date::DateCalc modules from CPAN.

### How can I take a string and turn it into epoch seconds?

If it's a regular enough string that it always has the same format, you can split it up and pass the parts to timelocal in the standard Time::Local module. Otherwise, you should look into one of the Date modules from CPAN.

### How can I find the Julian Day?

Neither Date::Manip nor Date::DateCalc deal with Julian days. Instead, there is an example of Julian date calculation in http://www.perl.com/CPAN/authors/David_Muir_Sharnoff/modules/Time/JulianDay.pm.gz, which should help.

### Does Perl have a year 2000 problem?

Not unless you use Perl to create one. The date and time functions supplied with perl (gmtime and localtime) supply adequate information to determine the year well beyond 2000 (2038 is when trouble strikes). The year returned by these functions when used in an array context is the year minus 1900. For years between 1910 and 1999 this happens to be a 2-digit decimal number. To avoid the year 2000 problem simply do not treat the year as a 2-digit number. It isn't.

When gmtime() and localtime() are used in a scalar context they return a timestamp string that contains a fully-expanded year. For example, $timestamp = gmtime(1005613200) sets $timestamp to Tue Nov 13 01:00:00 2001''. There's no year 2000 problem here.

#### PERL常见问题解答

2009年08月27日 120KB 下载

06-19 976

06-19 725

#### subversion FAQ(常见问题解答)

2009年04月29日 493KB 下载

#### mtk faq MTKandroid平台常见问题解答

2013年08月05日 152KB 下载

#### SAP S4 HANA FAQ

2017年05月07日 3.01MB 下载

#### CLEARCASE常见问题解答.doc

2008年10月09日 46KB 下载

#### PKU JudgeOnline FAQ 中文版

2010年08月01日 64KB 下载

#### PERL常见问题解答(HTML)

2005年06月24日 0B 下载

06-19 1610