68 lines
1.7 KiB
Markdown
68 lines
1.7 KiB
Markdown
# 날짜와 시간
|
|
|
|
## time
|
|
|
|
1970-01-01 이후부터의 경과 시간을 초 단위로 반환합니다.
|
|
|
|
```perl
|
|
$epoch = time();
|
|
```
|
|
|
|
## localtime
|
|
|
|
매개 변수로 시간을 전달할 수 있으며, 생략되면 현재 시간이 사용됩니다. localtime()을 스칼라로 받으면 시간을 나타내는 문자열 표현이되고, 배열로 받으면 9개의 요소를 가진 배열이 됩니다.
|
|
|
|
```perl
|
|
my $now = localtime();
|
|
print "$now\n"; # Thu Feb 11 15:19:03 2021
|
|
```
|
|
|
|
```perl
|
|
$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 : 일광절약제 적용 여부.
|
|
|
|
```perl
|
|
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초";
|
|
}
|
|
```
|
|
|
|
```perl
|
|
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입니다.
|
|
|
|
```perl
|
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($time);
|
|
```
|
|
|
|
# |