perl 中给定时间是否为周一,如何得到指定时间而不是系统时间为周几

2025-03-22 02:51:41
推荐回答(2个)
回答(1):

使用DateTime这个类就能处理,
use DateTime;$dt= DateTime->new(
year =>1964,
month =>10,
day =>16,
hour =>16,
minute =>12,
second =>47,
nanosecond =>500000000,
time_zone =>'Asia/Taipei',);

$dow=$dt->day_of_week;# 1-7 (Monday is 1)

回答(2):

没懂你的问题, 能举个例说明吗 ?