Perl で日付の処理

- 楽チン

print scalar(localtime);

  Thu May 15 10:22:54 2003

- 自由度高し

use POSIX qw(strftime);
print strftime "%Y-%m-%d %T\n", localtime;

  2003-05-15 10:22:54