如果是要取得服务器的时间的话使用localtime(time)可以得到,你可以按照你的需要读取相应的变量的值就可以了,函数格式如下: ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); 只要读取左边括号中的变量就可以得到相应的时间。 程序参考: #! /usr/local/bin/perl $a = localtime(time); print "$a\n "; 还考虑你的程序运行10秒哦。 但如果你是要读取客户端的时间的话就需要利用输出的javascript代码在客户端执行的时候取得了,因为perl是需要在服务器中执行的所以没有提供这样的函数!