\n")); } } close(FILE); } # shoguns if (open(FILE, 'shogun.dat')) { while (
\n")); } } close(FILE); } # emperors of Japan if (open(FILE, 'emperor.dat')) { while (
\n")); } } close(FILE); } # china era if (open(FILE, 'china.dat')) { while (
\n")); } } close(FILE); } # elements and animals @elements = ('甲きのえ', '乙きのと', '丙ひのえ', '丁ひのと', '戊つちのえ', '己つちのと', '庚かのえ', '辛かのと', '壬みずのえ', '癸みずのと'); @animals = ('子ね', '丑うし', '寅とら', '卯う', '辰たつ', '巳み', '午うま', '未ひつじ', '申さる', '酉とり', '戌いぬ', '亥い'); $element = $elements[&floor($year - 1864) % 10]; $animal = $animals[&floor($year - 1864) % 12]; push(@china, join('', '
\n")); # presidents of the U.S. if (open(FILE, 'pusa.dat')) { while (
\n")); } } close(FILE); } # rulers of Great Britain if (open(FILE, 'britain.dat')) { while (
\n")); } } close(FILE); } print "
- \n";
if (@japan)
{ print "
- 日本:\n
- ";
foreach (@japan)
{ print;
}
print "
\n"; } if (@china) { print " - 中国:\n
- ";
foreach (@china)
{ print;
}
print "
\n"; } if (@usa) { print " - アメリカ:\n
- ";
foreach (@usa)
{ print;
}
print "
\n"; } if (@uk) { print " - イギリス:\n
- ";
foreach (@uk)
{ print;
}
print "
\n"; } print "
\n", "
| 日', ' | 月 | 火 | 水', ' | 木 | 金', ' | 土'; for ($day = 1; $day <= $monthday; $day++) { if ($weekday == 0 || $day == 1) { print ' |
|---|---|---|---|---|---|---|
| " if $weekday; } if ($weekday == 0) { print ' | ', $day, ''; } elsif ($weekday == 6) { print ' | ', $day, ''; } else { print ' | ', $day, ''; } $weekday = ($weekday + 1) % 7; } print " |
\n"; } print "
', '前の年
', "\n", '次の年
', "\n", '入力画面に戻る
', "\n", '
Copyright(C) TAKASUGI Shinji ', '(ts
sf.airnet.ne.jp)',
"\n