0

我是 Perl 的初学者,我需要使用 Perl 模块 Date::Easter 中的函数来创建一个程序,该程序将需要一年的用户输入并显示那一年的复活节日期,我需要知道你是如何会将该模块合并到脚本中以获得所需的结果。

4

1 回答 1

2

很简单:

#!/usr/bin/perl

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

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";
于 2013-04-03T23:29:23.653 回答