電線の画像

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 = Time::Piece::localtime();
for(0..10) {
	print $t -> add_years($_)."\n";
}
 
exit;

サンプルコードです。

Fri Oct 21 01:50:24 2016
Sat Oct 21 01:50:24 2017
Sun Oct 21 01:50:24 2018
Mon Oct 21 01:50:24 2019
Wed Oct 21 01:50:24 2020
Thu Oct 21 01:50:24 2021
Fri Oct 21 01:50:24 2022
Sat Oct 21 01:50:24 2023
Mon Oct 21 01:50:24 2024
Tue Oct 21 01:50:24 2025
Wed Oct 21 01:50:24 2026

出力結果です。

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