Perl Language
日時

新しいDateTimeを作成する

あなたのPCにDateTimeをインストールして、それをperlスクリプトで使う：

use DateTime;

現在の新しいdatetimeを作成する

$dt = DateTime->now( time_zone => 'Asia/Ho_Chi_Minh');

次に、要素の日付と時刻の値にアクセスできます。

$year   = $dt->year;
$month  = $dt->month;
$day    = $dt->day;
$hour   = $dt->hour;
$minute = $dt->minute;
$second = $dt->second;

ただ時間を得るには：

my $time = $dt->hms; hh:mm:ss形式の#return時間

日付のみを取得するには：

my $date = $dt->ymd;日付を# yyyy-mm-dd形式で返す

日時の要素の操作

単一要素を設定する：

$dt->set( year => 2016 );

多くの要素を設定する：

$dt->set( year => 2016, 'month' => 8);

日時に継続時間を追加する

$dt->add( hour => 1, month => 2)

日時の減算：

my $dt1 = DateTime->new(
      year      => 2016,
      month     => 8,
      day       => 20,
);

my $dt2 = DateTime->new(
      year      => 2016,
      month     => 8,
      day       => 24,
);

my $duration = $dt2->subtract_datetime($dt1);
print $duration->days

結果は4日間になります

コード実行時間の計算

use Time::HiRes qw( time );

my $start = time();

#Code for which execution time is calculated
sleep(1.2);

my $end = time();

printf("Execution Time: %0.02f s\n", $end - $start);

これはコードの実行時間を秒単位で表示します