Perl 펄] 세계 시간 시계, 타임존/시차 계산; World-Time Timezone

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


  printf("KST (한국 표준시)       : %s\n\n", getWorldTime(+9));

  printf("PST (태평양 표준시)     : %s\n",   getWorldTime(-8));
  printf("PDT (태평양 표준시 DST) : %s\n\n", getWorldTime(-7));

  printf("EST (뉴욕 시간)         : %s\n",   getWorldTime(-5));
  printf("EDT (뉴욕 시간 DST)     : %s\n\n", getWorldTime(-4));

  printf("CET (파리 시간)         : %s\n",   getWorldTime(+1));
  printf("CEST (파리 시간 DST)    : %s\n\n", getWorldTime(+2));

  printf("CST (중국 표준시)       : %s\n\n", getWorldTime(+8));

  printf("UTC (세계 표준시)       : %s\n\n", getWorldTime(0));



sub getWorldTime { # 24시간제
  my $now = time + ($_[0] * 3600);

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

  sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year + 1900, $mon + 1, $mday, $hour, $min, $sec);
}