今月「日曜日」が何回あるのか教えてください

「川o・-・）＜2nd life - はてな Ruby のプログラムで今月「日曜日」が何回あるのか教えてください。」経由で、はてなで面白げな質問がされているのを知った。

Ruby のプログラムで今月「日曜日」が何回あるのか教えてください。（「今月」はプログラム実行時のシステム時間でかまいません）

Ruby がダメな人は Ruby 以外でも可とのことなので、Perl で回答してみる。

$ perl -MCalendar::Simple -e 'print scalar grep { $_->[0] } calendar;'

ご覧の通り、Calendar::Simpleを使っただけｗ