perl 時間

#! /usr/bin/perl -w

use v5.14;

#參考 perl tutorial time,請看我之前的文章：perl 視頻小教程第22課

my $time = localtime(time);
say $time;

$time = gmtime(time);  #格林威治 main time
say $time;

$time = time;
say $time;

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

say "second: $sec, minute: $min, hour: $hour,  
 month day: $mday, month: $mon, year(1900+): $year,  
 week day: $wday, year day: $yday, is dst: $isdst";

my @months = (1..12);
my @days = qw(Sun Mon Tue Wed Thu Fri Sat);
$year = $year + 1900;
my $date = "$year/$months[$mon]/$mday $days[$wday]";
$time = "$hour:$min:$sec";
say "$date : $time";