【Perl】簡単な日付計算の方法(非推奨)
2013-01-17-3
[Programming]
その場しのぎプログラミング用の ad hoc な日付計算方法。
超非推奨なのでまともなプログラムには使わないように(Date::Calc や DataTime 等の専用モジュール使うべき)。
例として、中二日あける計算スクリプト:
実行結果:
超非推奨なのでまともなプログラムには使わないように(Date::Calc や DataTime 等の専用モジュール使うべき)。
例として、中二日あける計算スクリプト:
#!/usr/bin/perl use strict; use warnings; use Time::Local; my @ds = qw(20121230 20121231 20130101 20130102 20130104 20130107); my $pre = 0; foreach my $d (@ds) { die if not $d =~ /^(\d{4})(\d{2})(\d{2})/; my $cur = timegm(0, 0, 0, $3, $2-1, $1); print "$d"; if ($cur - $pre <= 86400 * 2) { print " - skip\n"; next; } print "\n"; $pre = $cur; }
実行結果:
20121230 20121231 - skip 20130101 - skip 20130102 20130104 - skip 20130107
この記事に言及しているこのブログ内の記事