摘要: use Time::HiRes qw(time);use POSIX qw(strftime);my $t = time;my $date = strftime "%Y%m%d %H:%M:%S", localtime $t;$date .= sprintf ".%03d", ($t-int($t) 阅读全文
posted @ 2014-07-16 15:02 emanlee 阅读(2610) 评论(0) 推荐(0) 编辑