Perl 펄] 이번 달은 몇 분기, 몇 사분기 구하기 함수; Quarter of the Year

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

use POSIX qw( ceil ); # 올림 함수인 ceil 함수를 위해



  ############################################
  # 이번 달이 몇 분기인지 구하기
  #
  my $quarter = ceil(
                       ( (localtime)[4] + 1 ) / 3
                     );

  printf("%d분기\n", $quarter);
  # 이번 달이 4월이면 "2분기"라고 출력됨



  ############################################
  # 특정 달이 몇 분기인지 구하기
  #

  # 7월달은 몇 분기?
  printf("%d분기\n", quarterYear(7));
  # 3분기

  # 10월달은 몇 분기?
  printf("%d분기\n", quarterYear(10));
  # 4분기




# 특정 달을 입력하면,
# 그 달에 해당되는 분기가 반환되는 함수
# 참고로, $_[0] 이것은 함수의 첫번째 파라미터

sub quarterYear {
  return ceil( $_[0] / 3 );
}