localtime函数可以实现获取时间信息

localtime函数，根据它所在的上下文，可以用两种完全不同的方法来运行。在标量上下文中，localtime函数返回一个格式化很好的当前时间字符串。例如，print scalar (localtime)这个代码，它输出的结果将类似于Thu Sep 16 23:00:06 1999。在列表上下文中，localtime将返回能够描述当前时间的一个元素列表：

($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime;
字段 值
$sec 秒，0 ~ 59
$min 分，0 ~ 59
$hour 时，0 ~ 23
$mday 月份中的日期， 1 ~ 2 8、2 9、3 0或3 1
$mon 年份中的月份， 0 ~ 11（这里请特别要小心）
$year_off 1900年以来的年份。将1900加上这个数字，得出正确的4位数年份
$wday 星期几，0 ~ 6
$yday 一年中的第几天，0 ~ 364或365
$isdst 如果夏令时有效，则为真

获取时间字符串perl语句函数

#!perl -w
use strict;

print &GetTimeStampStr();

sub GetTimeStampStr()
{
	my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=localtime(time());
	my $timestr =  sprintf("%04d%02d%02d%02d%02d%02d", $year+1900, $mon+1, $day,$hour,$min,$sec);
	return $timestr;
}