怎么使用Time::HiRes ？

smilesky

use Time::HiRes qw(gettimeofday tv_interval);

这是什么东东?用他怎么来处理时间
（格式为0000-00-00 00：00：00）？

在perl中处理时间有没有简单一点的方法？

多谢

apile

sub CurrentTime(){
   $now = time();
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($now);
   $mon++;
   $mon  = sprintf("%02s",$mon);
   $mday = sprintf("%02s",$mday);
   $hour = sprintf("%02s",$hour);
   $min = sprintf("%02s",$min);
   $sec = sprintf("%02s",$sec);
   $year+=1900;
   $current_time = $year."-".$mon."-".$mday." ".$hour.":".$min.":".$sec;
   return $current_time;
}


我自己寫的抓現在時間的輸出string可以自己改...

smilesky

多谢多谢

原帖由 "apile" 发表：
sub CurrentTime(){
   $now = time();
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($now);
   $mon++;
   $mon  = sprintf("%02s",$mon);
   $mday = sprintf("%02s",$mday);
   $h..........

smilesky

查到的资料：使用Time::HiRes qw(gettimeofday tv_interval)这个模块可以直接调出时间来，格式如上 。

原帖由 "apile" 发表：
sub CurrentTime(){
   $now = time();
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($now);
   $mon++;
   $mon  = sprintf("%02s",$mon);
   $mday = sprintf("%02s",$mday);
   $h..........

deathcult

print scalar localtime;