perl获得当期的日期和时间.docxVIP

perl获得当期的日期和时间 1.使用 POSIX 模块 perl -e use POSIX; print strftime(%Y-%m-%d %H:%M:%S\n,localtime) 如果有时差，将时差时间加到 localtime后面。如：我现在使用的主机是 dreamehost 的主机，当前时区是 -700 ，而中国的时区是+800 ，相差 15 小时，为了让同步程序的时间正常，需要将系统时间向后调整 15 小时。时差调整为 时差*3600 。 perl e- ‘use POSIX; print strftime(”%Y%m%d %H:%M:%S”, localtime(time+15*3600))一’个 perl的脚本 #!/usr/bin/perl use strict; use POSIX qw(strftime); my $week = strftime %u, localtime; my $date = strftime %Y-%m-%d, localtime; print $week,$date; #!/usr/bin/perl -w use strict; use POSIX qw(strftime); my $datetime=strftime(%Y-%m-%d %H:%M:%S\n, localtime(time)); print $datetime; pr