Perl 中的当前日期和时间
我们先从 Perl 中的 localtime() 函数开始,如果没有给定参数,它将返回当前日期和时间的数值。下面是使用列表上下文中 localtime 函数返回的 9 元素列表 −
sec, # seconds of minutes from 0 to 61 min, # minutes of hour from 0 to 59 hour, # hours of day from 0 to 24 mday, # day of month from 1 to 31 mon, # month of year from 0 to 11 year, # year since 1900 wday, # days since sunday yday, # days since January 1st isdst # hours of daylight savings time
尝试以下示例打印 localtime() 函数返回的不同元素 −
示例
#!/usr/local/bin/perl @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ); @days = qw(Sun Mon Tue Wed Thu Fri Sat Sun); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); print "$mday $months[$mon] $days[$wday]\n";
输出
执行以上代码后,它将产生以下结果 −
16 Feb Sat
如果你在标量上下文中使用 localtime() 函数,那么它将从系统中设置的当前时区返回日期和时间。尝试以下示例打印完整格式的当前日期和时间 −
示例
#!/usr/local/bin/perl $datestring = localtime(); print "Local date and time $datestring\n";
输出
执行以上代码后,它将产生以下结果 −
Local date and time Sat Feb 16 06:50:45 2013
广告