【トリッキーなコード】たった2行のコードでカレンダー表示 (Perl)

下記コードを実行すると、現在の月のカレンダーが表示されます＾＾；）

($d,$m,$y,$w)=(localtime)[3..6];print$y+1900,'/',++$m,"/$d\n",$"x(($w-=$d-
1)%7*3);printf"%2d%s",$_,++$w%7?$":$/for(1..28+($m-2?3-$m*.86%2:!($y%4)));

実行結果は以下の通り～。



たった２行だけでカレンダーを表示させる事ができるとは・・・、Perlの柔軟さを改めて思い知らされるコードですね♪


# ～～ いずれ詳細な解説を書く予定 ヽ(´ー｀)ノ ～～



ひょっとしたら参考になるかもしれないページ ： エレガントな曜日表示手法