1. ホーム
  2. スクリプト・コラム
  3. パール

Perl による日付と時刻の取得のサンプルコード

2022-01-30 13:54:05

注意:localtimeは年を1900年からの相対的なオフセットとして取得し、これは1900年に加えられる必要があり、localtimeは月を0-11の範囲で取得し、これは1に加えられる必要があります。

コピーコード コードは以下の通りです。

#! /usr/bin/perl
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime();   
$year += 1900;   
$mon++;
my $date = "$year-$mon-$day";   
print $date, "\n";