小白教程
所有教程
关于
Search
172.70.130.222
172.70.130.222
参数设置
贡献
退出
操作
编辑
移动
保护
信息
历史
删除
查看“Perl 时间日期”的源代码
本页内容
上一节:
Perl_运算符
下一节:
Perl_子程序(函数)
因为以下原因,您没有权限编辑本页:
您请求的操作仅限属于该用户组的用户执行:
用户
您可以查看和复制此页面的源代码。
{{DISPLAYTITLE:Perl 时间日期}}[[Category:Perl 教程|13]] = Perl 时间日期 = 本章节我们为大家介绍 Perl 语言对时间日期的处理。 Perl中处理时间的函数有如下几种: * '''1、time() 函数:'''返回从1970年1月1日起累计的秒数 * '''2、localtime() 函数:'''获取本地时区时间 * '''3、gmtime() 函数:''' 获取格林威治时间 == 当前时间和日期 == 接下来让我们看下 '''localtime()''' 函数,该函数在没有参数的情况下返回当前的时间和日期。 以下 9 个符号代表不同的时间日期参数: <pre> sec, # 秒, 0 到 61 min, # 分钟, 0 到 59 hour, # 小时, 0 到 24 mday, # 天, 1 到 31 mon, # 月, 0 到 11 year, # 年,从 1900 开始 wday, # 星期几,0-6,0表示周日 yday, # 一年中的第几天,0-364,365 isdst # 如果夏令时有效,则为真 </pre> 实例演示如下: <sample title="" desc="" lang="perl" hererun="1"> #!/usr/bin/perl @months = qw( 一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月 ); @days = qw(星期天 星期一 星期二 星期三 星期四 星期五 星期六); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); print "$mday $months[$mon] $days[$wday]\n"; </sample> 以上实例执行输出结果为: <pre> 12 六月 星期天 </pre> 如果直接调用 localtime() ,它返回系统当期设置时区的时间,实例如下: <sample title="" desc="" lang="perl" hererun="1"> #!/usr/bin/perl $datestring = localtime(); print "时间日期为:$datestring\n"; </sample> 以上实例执行输出结果为: <pre> 时间日期为:Sun Jun 12 11:27:31 2016 </pre> == 格林威治时间 (GMT) == 函数 '''gmtime()''' 与 localtime() 类似,但它返回标准格林威治时间。 <sample title="" desc="" lang="perl" hererun="1"> #!/usr/bin/perl $local_datestring = localtime(); print "本地时间日期为:$local_datestring\n"; $gmt_datestring = gmtime(); print "GMT 时间日期为:$gmt_datestring\n"; </sample> 以上实例执行输出结果为: <pre> 本地时间日期为:Sun Jun 12 11:32:14 2016 GMT 时间日期为:Sun Jun 12 03:32:14 2016 </pre> 从实例中我们可以看出,中国的时间和格林威治时间相差了8小时。 == 格式化日期和时间 == 我们可以使用 localtime() 函数的 9 个时间元素来输出需要制定的格式时间。格式化输出使用 printf() 函数: <sample title="" desc="" lang="perl" hererun="1"> #!/usr/bin/perl ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); printf("格式化时间:HH:MM:SS\n"); printf("%02d:%02d:%02d", $hour, $min, $sec); </sample> 以上实例执行输出结果为: <pre> 格式化时间:HH:MM:SS 11:35:23 </pre> == 新纪元时间(Epoch Time) == 我们可以使用 time() 函数来获取新纪元时间,该函数返回从1970年1月1日起累计的秒数。实例如下: <sample title="" desc="" lang="perl" hererun="1"> #!/usr/bin/perl $epoc = time(); print "从1970年1月1日起累计的秒数为:$epoc\n"; </sample> 以上实例执行输出结果为: <pre> 从1970年1月1日起累计的秒数为:1465702883 </pre> 我们可以输出一个我们想要的时间格式: <sample title="" desc="" lang="perl" hererun="1"> #!/usr/bin/perl ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); print "当期时间和日期:"; printf("%d-%d-%d %d:%d:%d",$year+1900,$mon+1,$mday,$hour,$min,$sec); print "\n"; $epoc = time(); $epoc = $epoc - 24 * 60 * 60; # 一天前的时间秒数 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($epoc); print "昨天时间和日期:"; printf("%d-%d-%d %d:%d:%d",$year+1900,$mon+1,$mday,$hour,$min,$sec); print "\n"; </sample> 以上实例执行输出结果为: <pre> 当期时间和日期:2017-3-15 12:47:54 昨天时间和日期:2017-3-14 12:47:54 </pre> == POSIX 函数 strftime() == 函数 strftime() 可以将时间格式化为我们想要的格式。 下表列出了一些格式化的符号,* 号表示想要依赖本地时间: {| class="table table-striped table-hover" ! 符号 ! 描述 ! 实例 |- | <code>%a</code> | 星期几的简称( Sun..Sat) * | <code>Thu</code> |- | <code>%A</code> | 星期几的全称( Sunday..Saturday) * | <code>Thursday</code> |- | <code>%b</code> | 月的简称(Jan..Dec) * | <code>Aug</code> |- | <code>%B</code> | 月的全称(January..December) * | <code>August</code> |- | <code>%c</code> | 日期和时间 * | <code>Thu Aug 23 14:55:02 2001</code> |- | <code>%C</code> | 年份除于100,并取整 (<code>00-99</code>) | <code>20</code> |- | <code>%d</code> | 一个月的第几天 (<code>01-31</code>) | <code>23</code> |- | <code>%D</code> | 日期, <code>MM/DD/YY</code> 相等于<code>%m/%d/%y</code> | <code>08/23/01</code> |- | <code>%e</code> | 一个月的第几天,使用空格填充个位数 (<code> 1-31</code>) | <code>23</code> |- | <code>%F</code> | <code>YYYY-MM-DD</code> 的简写类似于 <code>%Y-%m-%d</code> | <code>2001-08-23</code> |- | <code>%g</code> | 年份的最后两位数 (<code>00-99</code>) | <code>01</code> |- | <code>%g</code> | 年 | <code>2001</code> |- | <code>%h</code> | 月的简称 * (和<code>%b</code>选项相同) | <code>Aug</code> |- | <code>%H</code> | 24 小时制 (<code>00-23</code>) | <code>14</code> |- | <code>%I</code> | 12 小时制 (<code>01-12</code>) | <code>02</code> |- | <code>%j</code> | 一年的第几天 (<code>001-366</code>) | <code>235</code> |- | <code>%m</code> | 月 (<code>01-12</code>) | <code>08</code> |- | <code>%M</code> | 分钟 (<code>00-59</code>) | <code>55</code> |- | <code>%n</code> | 新行 (<code>'\n'</code>) | <code> </code> |- | <code>%p</code> | 显示出AM或PM | <code>PM</code> |- | <code>%r</code> | 时间(hh:mm:ss AM或PM),12小时 * | <code>02:55:02 pm</code> |- | <code>%R</code> | 24 小时 <code>HH:MM</code> 时间格式,相等于 <code>%H:%M</code> | <code>14:55</code> |- | <code>%S</code> | 秒数 (<code>00-61</code>) | <code>02</code> |- | <code>%t</code> | 水平制表符 (<code>'\t'</code>) | <code> </code> |- | <code>%T</code> | 时间(24小时制)(hh:mm:ss),相等于<code>%H:%M:%S</code> | <code>14:55</code> |- | <code>%u</code> | ISO 8601 的星期几格式,星期一为<code>1</code> (<code>1-7</code>) | <code>4</code> |- | <code>%U</code> | 一年中的第几周,星期天为第一天(<code>00-53</code>) | <code>33</code> |- | <code>%V</code> | ISO 8601 第几周 (<code>00-53</code>) | <code>34</code> |- | <code>%w</code> | 一个星期的第几天(0代表星期天) (<code>0-6</code>) | <code>4</code> |- | <code>%W</code> | 一年的第几个星期,星期一为第一天 (<code>00-53</code>) | <code>34</code> |- | <code>%x</code> | 显示日期的格式(mm/dd/yy) * | <code>08/23/01</code> |- | <code>%X</code> | 显示时间格式 * | <code>14:55:02</code> |- | <code>%y</code> | 年,两位数 (<code>00-99</code>) | <code>01</code> |- | <code>%Y</code> | 年 | <code>2001</code> |- | <code>%z</code> | ISO 8601与UTC的时区偏移(1 minute=1, 1 hour=100) | <code>+100</code> |- | <code>%Z</code> | 当前时区的名称,如"中国标准时间" * | <code>CDT</code> |- | <code>%%</code> | <code>%</code> 符号 | <code>%</code> |} <sample title="" desc="" lang="perl" hererun="1"> #!/usr/bin/perl use POSIX qw(strftime); $datestring = strftime "%Y-%m-%d %H:%M:%S", localtime; printf("时间日期 - $datestring\n"); # GMT 格式化时间日期 $datestring = strftime "%Y-%m-%d %H:%M:%S", gmtime; printf("时间日期 - $datestring\n"); </sample> 以上实例执行输出结果为: <pre> 时间日期 - 2016-06-12 12:15:13 时间日期 - 2016-06-12 04:15:13 </pre>
返回至“
Perl 时间日期
”。
上一节:
Perl_运算符
下一节:
Perl_子程序(函数)