Perlで日付を取得する

日付を求める

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

@youbi = ('日', '月', '火', '水', '木', '金', '土');

print "$year年$mon月$mday日($youbi[$wday]) $hour時$min分$sec秒\n";

年月日だけ求める

($mday,$mon,$year) = (localtime(time))[3..5];
$year += 1900;
$mon += 1;

print "$year年$mon月$mday日\n";