ytkhs · October 12, 2011 17:41
diff --git a/get_day_of_week.pl b/get_day_of_week.pl
 sub _get_day_of_week {

    my($y,$m,$d) = @_;

    my @wdays = qw(日 月 火 水 木 金 土);

    if ($m < 3) {$y—; $m+=12;}

    my $w = ($y+int($y/4) - int($y/100) + int($y/400) + int((13*$m+8)/5) + $d) % 7;

    return $wdays[$w];

 }
	sub _get_day_of_week {

	my($y,$m,$d) = @_;

	my @wdays = qw(日月火水木金土);

	if ($m < 3) {$y—; $m+=12;}

	my $w = ($y+int($y/4) - int($y/100) + int($y/400) + int((13*$m+8)/5) + $d) % 7;

	return $wdays[$w];

	}