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

 
Previous Post 헤이세이, 쇼와, 다이쇼, 메이지; 서기 일본 연호 대조표; Japanese Era Nam...BAT 메세지 출력, 배치파일 메시지 프린트 방법; Batch File MessageVIM VI 워드랩 명령어, 화면 우측 끝에서 긴줄 자동 줄바꿈 방법; Word Wrap엑셀 난수발생기; Excel에서 랜덤한 숫자 생성하기 함수; Random엑셀 3제곱근, Excel 세제곱근값 구하기 방법, 함수는?금색 은색 색상 표현하기; HTML, HTM 웹페이지에서 Gold Silver Color카키색이란 어떤 색인가요? Khaki 카키 가키색; What color is Khaki엑셀에서 파이 입력 방법; 파이 값, 원주율 상수 함수는? Excel PI샌디스크 메모리카드 좋나요? SanDisk 산디스크 플래시 메모리 카드보라와 어울리는 색상, 보라랑 적합한 컬러; Violet Color vol.2

평성 소화 대정 명치; Heisei Showa Taisho Meiji; 일본 연호 서기로 변환 Perl

Sunday, October 07, 2007

서기(서력)를 일본 연호(원호)로 환산하는 펄 소스입니다. 연호를 계산한 후 대조표를 자동으로 생성하여 화면에 출력합니다.

* 平成(Heisei) : 헤이세이 ※ 실제로는 '헤에세에'라고 발음함
* 昭和(Showa) : 쇼와
* 大正(Taisho) : 다이쇼
* 明治(Meiji) : 메이지

헤이세이, 쇼와, 다이쇼, 메이지 대조표 만들기 Perl 소스


펄 소스 파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;

# 대조표 만들기

  print "\n\n\n\t< 平成 : 1989년 1월 8일부터 ??? 까지>\n\n";
  #########################################################
  # 헤에세에 / 헤이세이 / 평성 환산 출력
  #########################################################
  print "...\n\n";
  for (my $i = 2018; $i >= 2008; $i--) {
    printf("서기 %d년  =  평성 %2d년 ?\n", $i, $i - 1988);
  }

  for (my $i = 2007; $i >= 1989; $i--) {
    printf("서기 %d년  =  평성 %2d년\n", $i, $i - 1988);
  }


  print "\n\n\n\t< 昭和 : 1926년 12월 25일부터, 1989년 1월 7일까지 >\n\n";
  #########################################################
  # 쇼와 / 소화 환산 출력
  #########################################################
  for (my $i = 1989; $i >= 1926; $i--) {
    printf("서기 %d년  =  소화 %2d년\n", $i, $i - 1925);
  }


  print "\n\n\n\t< 大正 : 1912년 7월 30일부터, 1926년 12월 25일까지 >\n\n";
  #########################################################
  # 다이쇼 / 대정 환산 출력
  #########################################################
  for (my $i = 1926; $i >= 1912; $i--) {
    printf("서기 %d년  =  대정 %2d년\n", $i, $i - 1911);
  }


  print "\n\n\n\t< 明治 : 1868년 10월 23일부터, 1912년 7월 30일까지 >\n\n";
  #########################################################
  # 메이지 / 명치 환산 출력
  #########################################################
  for (my $i = 1912; $i >= 1868; $i--) {
    printf("서기 %d년  =  명치 %2d년\n", $i, $i - 1867);
  }


위의 펄 스크립트를 실행한 결과 화면은 여기에 있습니다:
▶▶ 헤이세이, 쇼와, 다이쇼, 메이지; 서기 일본 연호 대조표; Japanese Era Name Table

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