Perl: 現在日付の取得
localtime 関数の戻り値をスライシングすれば、日付だけを取得することができる。
例えば、今日の午前 0:00 を Unix Time で表現する方法は以下のとおり。
1 2 3 | use POSIX qw( mktime strftime );my $time = mktime(0, 0, 0, (localtime)[3..5]);print strftime('%Y-%m-%d %H:%M:%S', localtime($time)); |
0 件のコメント:
コメントを投稿