解析两大Perl时间函数区别

开发 架构
Perl中Perl时间函数有很多值得学习的地方,这里向大家简单介绍一下,Perl语言中有两个取得Perl时间的函数:localtime()和gmtime()。

本文和大家重点讨论一下Perl时间函数的概念,Perl语言中有两个取得Perl时间函数:localtime()和gmtime(),两个函数的用法一样,区别在于localtime为取得本地时间,gmtime格林威治时间。

Perl时间函数

Perl语言中有两个取得Perl时间函数:localtime()和gmtime()

两个函数的用法一样,区别在于localtime为取得本地时间,gmtime格林威治时间
#!/usr/bin/Perl
#getlocaltime
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

其中:
$sec代表秒数[0,59]
$min代表分数[0,59]
$hour代表小时数[0,23]
$mday代表是在这个月的第几天[1,31]
$mon代表月数[0,11],要将$mon加1之后,才能符合实际情况。

$year从1990年算起的年数
$wday从星期六算起,代表是在这周中的第几天[0-6]
$yday从一月一日算起,代表是在这年中的第几天[0,364]
$isdst只是一个flag
知道这些变量之后,就可以在CGI应用程序中拿来应用了。此外,Perl时间函数也可以用下面这一行指令在UNIX系统下取得系统的时间。为了避免错误发生,***用绝对路径的方法来取得系统时间,如果绝对路径不清楚的话可以用”whichdata”这个指令来得知。***要提字符的话,就不能正确执行系统的程序了。$data=’/usr/bin/data’;而在Perl5版本中,也可以用下面这一行指令来取得系统时间


Perl时间函数的例子:
格式化所需要的时间变量:
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
#2001年08月09日
$yyyymmddZH=sprintf("%04d年%02d月%02d日",$year+1900,$mon+1,$mday);
#2001年8月9日
$yyyymmddZH2=sprintf("%d年%d月%d日",$year+1900,$mon+1,$mday);
#2001.08.09
$yyyymmdd=sprintf("%04d.%02d.%02d",$year+1900,$mon+1,$mday);
#2001.08.09

$yyyymmdd2=sprintf("%d.%d.%d",$year+1900,$mon+1,$mday);
#13点13分02秒
$hhmmssZH=sprintf("%02d点%02d分%02d秒",$hour,$min,$sec);
#13点13分2秒
$hhmmssZH2=sprintf("%d点%d分%d秒",$hour,$min,$sec);
#13:13:02
$hhmmss=sprintf("%02d:%02d:%02d",$hour,$min,$sec);

#13:13:2
$hhmmss2=sprintf("%d:%d:%d",$hour,$min,$sec);
#周四
$weekZH=sprintf("%s",("周日","周一","周二","周三","周四","周五","周六")[$wday]);
#Thursday
$weekE=sprintf("%s",("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")[$wday]);
#Thu
$week=sprintf("%s",("Sun","Mon","Tue","Wed","Thu","Fri","Sat")[$wday]);

【编辑推荐】

  1. 解析Perl时间和日期模块作用
  2. Perl文件句柄概念详解
  3. 解析四大Perl操作符用法
  4. Perl字符串处理函数大全
  5. 学习笔记 Perl数字与字符串间的自动转换

 

 

责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-15 09:49:23

Perl标量

2011-07-01 10:42:51

IIS解析漏洞

2010-04-01 09:34:06

Oracle函数

2010-09-14 17:27:12

DIV CSS定位

2010-07-13 14:06:26

Perl选择性控制结构

2011-12-08 09:55:08

iOS 5隐藏特性

2010-07-15 13:50:16

Perl目录操作函数

2015-07-09 09:34:24

2010-07-19 13:49:17

Perl函数

2010-09-16 09:33:33

CSS displayCSS display

2010-07-19 14:20:57

Perl函数

2010-07-21 10:18:41

Perl map函数

2010-07-19 14:13:41

Perl函数

2010-07-16 16:56:01

Perl构造函数

2009-11-30 16:55:10

微软合作Novell

2021-05-19 09:01:37

Pythonurllib库requests库

2010-07-13 09:23:00

Perl变量

2010-07-19 13:32:55

Perl用户函数

2010-07-26 14:06:43

Perl substr

2010-07-13 09:14:21

Perl时间处理函数
点赞
收藏

51CTO技术栈公众号