Perlで日付を取得する方法

Perlでは日付の取得を行うことが出来ます
使うにはlocaltimeを使用して日付を取得します

以下サンプル

#!/usr/bin/perl

#CGI使うよ---
use CGI;
$query = new CGI;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon += 1;

print "$year $mon $mday $hour $min $sec\n";

注意点としてはlocaltimeから返される年の値は1900から数えた値が返されるのでちゃんと1900を足してあげましょう
そして日にちも0から返しますので1を追加してあげる必要があります

コメントを残す

メールアドレスが公開されることはありません。