PERLで日付算術を行うための推奨方法は何ですか?
-
08-10-2019 - |
質問
PERLで日付算術を行うための推奨方法は何ですか?
たとえば、今日から3日前の日付を知りたいと言ってください(どこで today
= 2010-10-17
と today - 3 days
= 2010-10-13
)。 Perlでどのようにそれをしますか?
解決
DateTimeおよびDateTime ::持続時間を使用できます
http://search.cpan.org/dist/datetime/lib/datetime/duration.pm
またはUNIXタイムスタンプを使用して作業します。
my $now = time();
my $threeDaysAgo = $now - 3 * 86400;
my ($day, $mon, $year) = (localtime($threeDaysAgo))[3, 4, 5];
printf("Three days ago was %04d-%02d-%02d", $year+1900, $mon+1, $day);
所属していません StackOverflow