perl下的时间处理
获得unix时间:
1 2 3 4 5 | #!/usr/bin/perl use strict; use warnings; print time; |
获得当前系统时间:
1 | print scalar localtime(); |
这里localtime()可带一个时间参数,默认是以当前的unix时间为参数,若要得到unix时间100秒的具体时间,可以用localtime(100)。
unix时间转换成普通的日期时间:
1 | my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); |
$sec --> 秒
$min --> 分
$hour --> 时
$mday --> 当月的第几天(1..31)
$mon --> 月(0.11)
$year --> 年(1900..,从1900年开始,所以得加上1900才能得到当前年份)
$wday --> 一周中的第几天(0是星期天,然后1..6代表周一到周六)
$yday --> 一年中的第几天(0..365)
$isdst --> 夏令时标志,如果当前时间正在使用夏令时,则$isdst为1,否则为0。
执行localtime函数得到的就是由上面这些值所组成的一个字符串。
普通的日期时间转换成unix时间
有时候为了得到两次时间间隔,把普通日期时间转换成unix时间处理起来就方便多了。
1 2 3 | use Time::Local; my $time = timelocal($sec,$min,$hour,$mday,$mon,$year); # replace 'timelocal' with 'timegm' if your input date is GMT/UTC |

话说今天学校里体育达标测试中某女生替别人跑800被抓出来了,究其原因,我觉得很大程度上是细节没处理好,还有就是没有看清当时的形势。

说实话,刚开始参加培训时听宝儿说前一届毕业分开的那天很多人都哭了,我还有点怀疑,短短的一个半月时间,感情真的能那么好吗?现在我相信了。


很早就想自己搞个博客了,一来是好玩,生命在于折腾嘛,另一个原因则是希望能记录下自己学习当中的点点滴滴。
最新评论