perl-examples/docs/13_date_time.md

날짜와 시간

time

1970-01-01 이후부터의 경과 시간을 초 단위로 반환합니다.

$epoch = time();

localtime

매개 변수로 시간을 전달할 수 있으며, 생략되면 현재 시간이 사용됩니다. localtime()을 스칼라로 받으면 시간을 나타내는 문자열 표현이되고, 배열로 받으면 9개의 요소를 가진 배열이 됩니다.

my $now = localtime();
print "$now\n"; # Thu Feb 11 15:19:03 2021

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

• sec : 초. 0~59
• min : 분. 0 ~ 59
• hour : 시. 0 ~ 24
• mday : 일. 1 ~ 31
• mon : 월. 0 ~ 11
• year : 년. 1900년부터.
• wday : 요일. 일요일부터.
• yday : 1월 1일 이후의 날짜 수.
• isdst : 일광절약제 적용 여부.

print &date_format."\n";
sub date_format{
    my @weeks = qw(일 월 화 수 목 금 토);
    my $time = (defined $_[0]) ? $_[0] : time();
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
    $mon += 1;
    $year += 1900;
    $wday = $weeks[$wday];
    return "$year년 $mon월 $mday일 $wday요일 $hour시 $min분 $sec초";
}

print &ymdhms."\n";

sub ymdhms{
    my $time = (defined $_[0]) ? $_[0] : time();
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
    $mon += 1;
    $year += 1900;
    sprintf ("%04d-%02d-%02d %02d:%02d:%02d", $year, $mon, $mday, $hour, $min, $sec);
}

gmtime

UTC 시간입니다. localtime()과 같은 방식으로 사용하면 됩니다. 다만, UTC시간이므로, $isdst는 항상 0입니다.

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