perl で時刻計算 - Time::Piece編 - 指摘されたのを修正したバージョン - Qiita
#!/usr/bin/env perl use strict; use warnings; use Time::Piece; use Time::Seconds; # Time::Pieceオブジェクトの取得 print "Time::Piece ",$Time::Piece::VERSION,"\n"; my $t; # $t = "2014-01-29"; # 入力パラメータとかで渡ってきたとする。 if ($t) { $t = localtime( Time::Piece->strptime($t, '%Y-%m-%d') ); } else { $t = localtime; # 渡ってこなければ現在時刻 } # 日付や時刻の情報の表示 print $t->ymd,"\n"; # $t += ONE_MONTH; # 一ヶ月後 $t = $t->add_months(1); pri
Time::Piece - 日付・時刻を扱う新しい方法 - Perl入門ゼミ
Perl › モジュール › here Perlの5.10からTime::Pieceと呼ばれる時刻を便利に扱うためのモジュールが標準モジュールに加わりました。Perlの5.10以上を使用している場合はTime::Pieceモジュールを日付と時刻を扱いたい場合に利用すると便利です。 従来のPerlでは日付や時刻を直感的に扱う手段が標準モジュールにはありませんでした。日付や時刻を扱うためには少し面倒な作業が必要でした。Time::Pieceは日付と時刻の直感的な操作を提供します。また日付・時刻の書式化の機能や解析する機能も備えます。 Perlには実質的に日付を扱うモジュールのスタンダードといえるDateTimeというモジュールがあります。ただしこのモジュールは標準モジュールではなくCPANからインストールする必要があります。また巨大なモジュールですのでモジュールを読み込む時間が非常にかかります
perlでYYYYMMDD形式の日付を得る
こんな感じでおーけーヾ(*･∀･)ノ" my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); my $yyyymmdd = sprintf("%04d%02d%02d", $year + 1900, $mon + 1, $mday);
Perl 日付と時刻からエポック秒を取得する方法 Time::Local timelocal
このドキュメントの内容は、以下の通りです。 Time::Local timelocal サンプルコード 実行結果 Perlで日付と時刻からエポック秒を取得するには、 Time::Local の timelocal を使うことで可能です。 年は 1900 年からの年なので 2008 年の場合 2008 - 1900 年の値にする必要があります。 月は、 0-11 の範囲なので、月から１を引いた値にします。 2008/12/31 11:22:33のエポック秒を取得してみます。 Time::Local timelocal サンプルコード #!/usr/local/bin/perl -w use strict; use Time::Local; my ($sec, $min, $hour, $mday, $mon, $year) = qw( 33 22 11 31 12 2008); $year
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
