perl获取日期与时间的实例代码
更新时间:2013年02月09日 23:29:32 作者:
perl获取日期与时间的例子,供大家学习参考
注意:localtime获取的年份是相对于1900的偏移,需要加上1900,而localtime获取的month范围是0-11,需要加1。
复制代码 代码如下:
#!/usr/bin/perl
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime();
$year += 1900;
$mon++;
my $date = "$year-$mon-$day";
print $date, "\n";
相关文章
Perl中使用File::Lockfile确保脚本单实例运行
这篇文章主要介绍了Perl中使用File::Lockfile确保脚本单实例运行的方法,本文直接给出实例,方法非常简单,需要的朋友可以参考下2014-11-11
最新评论