localtime 関数 - UNIX 秒をローカル時間に変換する | Perl 組み込み関数 | futomi's CGI Café

use utf8; binmode STDOUT, ":utf8"; my @tm = localtime(time); # 今日の日付 my $year = $tm[5] + 1900; # 西暦 my $mon = $tm[4] + 1; # 月 my $mday = $tm[3]; # 日 my $wday = $tm[6]; my @youbi_list = ( '日', '月', '火', '水', '木', '金', '土' ); my $youbi = $youbi_list[$wday]; # 曜日 print "今日は ${year}年${mon}月${mday}日 (${youbi}) です。\n"; # 今の時刻 my $hour = $tm[2]; my $min = $tm[1]; my $sec = $tm[0]; print "今は ${hour}時${min