Perl/펄] 오늘 날짜/현재 시간 구하기 함수, 년월일/시분초; Get Print Date Time Current

#!/usr/bin/perl
use strict; use warnings;


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


  printf("현재 년: %04d\n", $year + 1900);
  printf("현재 월: %02d\n", $mon + 1);
  printf("현재 일: %02d\n", $mday);

  print "\n"; # 줄바꿈

  printf("현재 시: %02d\n", $hour);
  printf("현재 분: %02d\n", $min);
  printf("현재 초: %02d\n", $sec);

  print "\n"; # 줄바꿈

  printf("오늘 요일: %d\n", $wday);       # 일요일 = 0
  printf("올해 몇번째 날: %d\n", $yday);  # 1월1일 = 0
  printf("서머타임 여부: %d\n", $isdst);  # 서머타임 없음 = 0