電線の画像

Pointgets.net

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

月単位の日付をTime::Pieceで生成

PerlモジュールのTime::Pieceを使用して、月単位の日付を出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Time::Piece;
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
my $time = Time::Piece::localtime();
for(0..11) {
	my $add_months = $time -> add_months($_);
	print $add_months -> ymd."\n";
}
 
exit;

サンプルコードです。add_monthsで月単位の日付を出力します。

2014-04-03
2014-05-03
2014-06-03
2014-07-03
2014-08-03
2014-09-03
2014-10-03
2014-11-03
2014-12-03
2015-01-03
2015-02-03
2015-03-03

出力結果です。add_monthsでは、月単位の日付計算が出力されました。

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