1、time函数：返回从1970年1月1日起累计的秒数 
使用：my $t=time(); 


2、 localtime函数：获取本地时区时间 
使用：my $t=localtime(time()); 


3、gmtime函数： 获取格林威治时间 
使用：my $t=gmtime(time()); 


得到格式化时间(以localtime函数为例)： 
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time()); 
上式中前三个表示秒、分、时,中间三个是天数、月数(从0开始计数)、年份(相对1990年)，最后三个分别是一周第几天(周几) 、一年第几天、夏令时有效标识。 


通过sprintf来格式化时间： 


my $format_time=sprintf("%d-%d-%d %d:%d:%d",$year+1990,$mon+1,$mday,$hour,$min,$sec); 
得到形如：2010-8-30 21:00:00 格式的时间。 
另外，还可以通过Perl的Date模块来取得格式化的时间。