月から四半期を取得するPerlサブルーチン。思いついた3つの方法メモでした。
1.IF文を使用して四半期を求めるsub get_quarter() {
my $mon = shift; # 指定月
my $qrt; # 四半期
$qrt = 4 if 1 <= $mon && $mon <= 3;
$qrt = 1 if 4 <= $mon && $mon <= 6;
$qrt = 2 if 7 <= $mon && $mon <= 9;
$qrt = 3 if 10 <= $mon && $mon <= 12;
}
2.四半期を求める算術計算1sub get_quarter() {
my $mon = shift; # 指定月
my $qrt; # 四半期
$qrt = (int(($mon + 8) / 3) % 4) + 1
}
3.四半期を求める算術計算2sub get_quarter() {
my $mon = shift; # 指定月
my $qrt; # 四半期
$qrt = (int(($mon + 8) / 3) & 0x04) + 1
}