17.16. p5-Date-Chinese

能經由輸入西元年得到農曆年的程式。

#!/usr/bin/perl

use Date::Chinese;
$year = yearofthe( 1999 );
print $year; # "Year of the hare"