如何打印拼寫出月份名稱而不是數字

Question

如何讓Perl打印月份名稱而不是數字，例如：9應該顯示爲9月份。我希望下面的程序打印月份名稱而不是數字。

#!/usr/bin/perl 

use strict; 
use warnings; 
use Date::Easter; 

print "Please enter a year"; 
chomp (my $year = <STDIN>); 

my ($m1, $d1) = easter ($year); 
my ($m2, $d2) = julian_easter ($year); 
my ($m3, $d3) = orthodox_easter ($year); 

print "Gregorian => Month: $m1 Day: $d1\n"; 
print "Julian => Month: $m2 Day: $d2\n"; 
print "Orthodox => Month: $m3 Day: $d3\n"; 

Answer 1

我懶得去下載這個模塊，看看是否月份是從0到11或1到12。對於這一點，我假設月份是從0到11

最簡單的方法是創建月份名稱的數組：

my @month_list = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); 

my ($m1, $d1) = easter ($year); 
my ($m2, $d2) = julian_easter ($year); 
my ($m3, $d3) = orthodox_easter ($year); 

print "Gregorian => Month: $month_list[$m1] Day: $d1\n"; 
print "Julian => Month: $month_list[$m2] Day: $d2\n"; 
print "Orthodox => Month: $month_list[$m3] Day: $d3\n"; 

如果有個編號從1到12，加上一個假的一個月到數組的開頭：

my @month_list = qw(Foo Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); 

Answer 2

我使用BUIL式POSIX模塊：

#!/usr/bin/perl 

use strict; 
use warnings; 
use Date::Easter; 
use POSIX qw(strftime); 

my %dispach_sub = (
    easter   => \&easter, 
    julian_easter => \&julian_easter, 
    orthodox_easter => \&orthodox_easter, 
); 

print "Please enter a year: "; 
chomp(my $year = <STDIN>); 

foreach my $key (keys %dispach_sub) { 

    print "[$key]\t"; 
    my ($month, $day) = $dispach_sub{$key}->($year); 
    print POSIX::strftime("Month: %B Day: %d", 
     0, 0, 0, $day, $month - 1, $year - 1900), 
     "\n"; 
}