電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

月末の日付をTime::Pieceで1年先まで順に生成

PerlモジュールのTime::Pieceを使用して、月末の日付を12ヶ月先まで順に出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Time::Piece;
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
my $t = Time::Piece -> localtime;
 
for(0..12) {
	$t = localtime(
			$t -> year.
			sprintf("%02d",$t -> mon).
			$t -> month_last_day.
			$t -> hour.
			$t -> min.
			$t -> sec,
			"%Y%m%d%H%M%S"
		)
	);
	print $t -> datetime."\n";
	$t = $t + ONE_DAY;
}
 
exit;

サンプルコードです。月末の日付を1年先まで順に出力します。

2014-02-28T16:55:04
2014-03-31T16:55:04
2014-04-30T16:55:04
2014-05-31T16:55:04
2014-06-30T16:55:04
2014-07-31T16:55:04
2014-08-31T16:55:04
2014-09-30T16:55:04
2014-10-31T16:55:04
2014-11-30T16:55:04
2014-12-31T16:55:04
2015-01-31T16:55:04
2015-02-28T16:55:04

出力結果です。月末の日付が12ヶ月先まで順に出力されました。

スポンサードリンク
スポンサードリンク