Perl/펄] 올해가 윤년인지 평년인지 판단 예제; Current Year is Leap Year?

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

  my $current_year = (localtime)[5] + 1900;

  print "올해는 ", $current_year, " 년입니다.\n";


  if (isLeapYear($current_year)) {
    print "윤년입니다\n";
  } else {
    print "평년입니다\n";
  }




sub isLeapYear {
  my $year = shift;

  return 0 if $year % 4;
  return 1 if $year % 100;
  return 0 if $year % 400;

  return 1;
}