2008-01-15から1日間の記事一覧
以下の関数(getMonthEndDate)は、年を入力に、その年の全月の末日のテーブルを出力します。 use strict; print getMonthEndDate(2008), "\n"; sub getMonthEndDate { my ($year) = @_; my @enddatetbl = (31,28,31,30,31,30,31,31,30,31,30,31); if ($year…
今日もママと一緒にご供養(法華経読誦)が出来て、有り難かったです。 葛を食べたら気持ち悪くなって、ゲロゲロしたら、次男が凄く心配してくれて、なぜか、嬉しかったです。 今日は、特に悲しいことはなかったです。