電線の画像

Pointgets.net

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

月単位の日付を生成

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 $t = localtime;
for(0..11) {
	print $t -> add_months($_)."\n";
}
 
exit;

サンプルコードです。

Fri Oct 21 01:50:22 2016
Mon Nov 21 01:50:22 2016
Wed Dec 21 01:50:22 2016
Sat Jan 21 01:50:22 2017
Tue Feb 21 01:50:22 2017
Tue Mar 21 01:50:22 2017
Fri Apr 21 01:50:22 2017
Sun May 21 01:50:22 2017
Wed Jun 21 01:50:22 2017
Fri Jul 21 01:50:22 2017
Mon Aug 21 01:50:22 2017
Thu Sep 21 01:50:22 2017

出力結果です。

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