컴퓨터 엑셀 워드 포토숍 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Previous Post 캐논 렌즈를 니콘 디카(DSLR) 마운트에 붙일 수 있나요? 렌즈 호환; Canon Nik...자바스크립트] 세계 시간 구하기, 타임존 설정; JavaScript World-Time T...자바스크립트, 리얼타임 시계 만들기, 1초마다 자동 갱신; JavaScript Real-t...니콘 DSLR] D40X, D40 미러업 촬영, CCD 클리닝 미러락업 기능 있나요? Mu...Perl 펄] 스와치 시계의 인터넷 타임(Swatch Internet Time) 구하기Perl 펄] 루프 건너뛰기, 특정 조건 생략, C의 continue문에 해당하는 예약어 ...Perl 펄] switch문, case문 구현, 스위치 모듈로; default 예약어는?Perl 펄] 무한루프 만들기/탈출, C언어의 break문에 해당하는 예약어; while,...윈도우2000에서 클리어타입 폰트 사용할 수 있나요? 맑은고딕 등; Windows 2000...디카] 모니터 화면 촬영 방법, 컴퓨터 바이오스 캡쳐; How to Shoot Monito...

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

Tuesday, May 22, 2007

펄에서 외국 도시의 현재 시각을 구하는 방법입니다. CPAN 모듈이 있긴 하지만 사용법이 너무 복잡해서 간단한 것을 직접 만들었습니다. 펄에서 이런 함수를 기본적으로 제공하지 않기에, 시차를 직접 계산해야 합니다.

아래의 getWorldTime 함수에 시차를 넣어주면 됩니다. 외국도시와 한국의 시차가 아니라, "외국 도시의 시간과 세계표준시 사이의 시차"입니다.

미국 서부의 LA는 겨울에는 "태평양 표준시 PST"를 사용하고, 그 외의 계절에는 서머타임이 적용되어 "태평양 표준시 PDT"를 사용합니다. 이 글을 쓰고 있는 지금 현재(2007-05-22) 미국 서부는 PDT가 적용되고 있습니다.

PST 는 세계표준시에서 8시간을 마이너스해야 하고, PDT는 마이너스 7을 해야 합니다. 함수 안에 이 시차를 넣어주면 됩니다.

외국 현재 시각 구하기 예제 소스


파일명: example.pl
#!/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);
}



실행 결과 화면:
D:\Z>example.pl
KST (한국 표준시)       : 2007-05-22 11:45:43

PST (태평양 표준시)     : 2007-05-21 18:45:43
PDT (태평양 표준시 DST) : 2007-05-21 19:45:43

EST (뉴욕 시간)         : 2007-05-21 21:45:43
EDT (뉴욕 시간 DST)     : 2007-05-21 22:45:43

CET (파리 시간)         : 2007-05-22 03:45:43
CEST (파리 시간 DST)    : 2007-05-22 04:45:43

CST (중국 표준시)       : 2007-05-22 10:45:43

UTC (세계 표준시)       : 2007-05-22 02:45:43


D:\Z>



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

0 Comments:

Post a Comment

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Categories
Previous Posts
Monthly Archives
Top