0

私は Perl の初心者です。Perl モジュール Date::Easter の関数を使用して、ユーザー入力から 1 年かかり、その年内のイースターの日付を表示するプログラムを作成する必要があります。目的の結果を得るために、そのモジュールをスクリプトに組み込みます。

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 に答える