blog.nomadscafe.jp

antipopさんがCalendar::Simple使っているいますが、horiuchiさんのDate::Simple::Monthでも。

perl -MDate::Simple::Month -e 'print scalar grep {$_->day_of_week==0} 
	Date::Simple::Month->new->dates'

冗長だけど何やっているのか明らかに分かっていいかも。

元々のはてなの質問の回答にあるShell Script の回答がすげぇ。

# cal | cut -b 1-2 | grep -c [0-9]

Hackだなぁ。