電線の画像

Pointgets.net

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

分単位の日付を生成

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

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Time::Piece;
use Time::Seconds;
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
my $t = Time::Piece::localtime();
for(0..59) {
	print $t."\n";
	$t += ONE_MINUTE;
}
 
exit;

サンプルコードです。

Fri Oct 21 01:50:23 2016
Fri Oct 21 01:51:23 2016
Fri Oct 21 01:52:23 2016
Fri Oct 21 01:53:23 2016
Fri Oct 21 01:54:23 2016
Fri Oct 21 01:55:23 2016
Fri Oct 21 01:56:23 2016
Fri Oct 21 01:57:23 2016
Fri Oct 21 01:58:23 2016
Fri Oct 21 01:59:23 2016
Fri Oct 21 02:00:23 2016
Fri Oct 21 02:01:23 2016
Fri Oct 21 02:02:23 2016
Fri Oct 21 02:03:23 2016
Fri Oct 21 02:04:23 2016
Fri Oct 21 02:05:23 2016
Fri Oct 21 02:06:23 2016
Fri Oct 21 02:07:23 2016
Fri Oct 21 02:08:23 2016
Fri Oct 21 02:09:23 2016
Fri Oct 21 02:10:23 2016
Fri Oct 21 02:11:23 2016
Fri Oct 21 02:12:23 2016
Fri Oct 21 02:13:23 2016
Fri Oct 21 02:14:23 2016
Fri Oct 21 02:15:23 2016
Fri Oct 21 02:16:23 2016
Fri Oct 21 02:17:23 2016
Fri Oct 21 02:18:23 2016
Fri Oct 21 02:19:23 2016
Fri Oct 21 02:20:23 2016
Fri Oct 21 02:21:23 2016
Fri Oct 21 02:22:23 2016
Fri Oct 21 02:23:23 2016
Fri Oct 21 02:24:23 2016
Fri Oct 21 02:25:23 2016
Fri Oct 21 02:26:23 2016
Fri Oct 21 02:27:23 2016
Fri Oct 21 02:28:23 2016
Fri Oct 21 02:29:23 2016
Fri Oct 21 02:30:23 2016
Fri Oct 21 02:31:23 2016
Fri Oct 21 02:32:23 2016
Fri Oct 21 02:33:23 2016
Fri Oct 21 02:34:23 2016
Fri Oct 21 02:35:23 2016
Fri Oct 21 02:36:23 2016
Fri Oct 21 02:37:23 2016
Fri Oct 21 02:38:23 2016
Fri Oct 21 02:39:23 2016
Fri Oct 21 02:40:23 2016
Fri Oct 21 02:41:23 2016
Fri Oct 21 02:42:23 2016
Fri Oct 21 02:43:23 2016
Fri Oct 21 02:44:23 2016
Fri Oct 21 02:45:23 2016
Fri Oct 21 02:46:23 2016
Fri Oct 21 02:47:23 2016
Fri Oct 21 02:48:23 2016
Fri Oct 21 02:49:23 2016

出力結果です。

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