時刻の差を求める(時刻に日付を含む) - Perl入門ゼミ

時刻の差を求める(時刻に日付を含む) - Perl入門ゼミ

Perl › 日付・時刻 時刻に日付を含んでいる場合にその差を求めるにはTime::Localモジュールのtimelocal...概要を表示 Perl › 日付・時刻 時刻に日付を含んでいる場合にその差を求めるにはTime::Localモジュールのtimelocal関数で、日付を含む時刻を秒に変換して差を求めます。 ログなどでは書式化された時刻が記述されていますので、その状態から時刻の差を求めるサンプルを作成しました。 use strict; use warnings; # 差は2秒 これを計算で求める print "(1)時刻の差を求める( 時刻に日付を含む )\n"; my $time_str1 = '30/Sep/2006:23:59:59'; my $time_str2 = '01/Oct/2006:00:00:01'; # 時刻の文字列表現を日付を含んだ時刻情報のハッシュに変換する。 my $time1 = time_from_str($time_str1); my $time2 = time_from_str($ti

• Perl