[perl] 시간, 날짜 얻기

[출처] http://mwultong.blogspot.com/2007/01/perl-get-print-date-time-current.html

  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);

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

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