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

#!/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);
  }