Help for this page

Select Code to Download


  1. or download this
    cal 3 2009 | perl -anle '$.==1&&do{print};@F=unpack"A3"x7,$_;$.>2&&$F[
+2]=~m/^\s*\d+$/&&++$a==2&&print$F[2];'
  2. or download this
    cal 4 2009 | perl -anle '$.==1&&do{print};@F=unpack"A3"x7,$_;$.==2&&do
+{@i{@F}=0..$#F};$.>2&&$F[$i{"Tu"}]=~m/^\s*\d+$/&&++$a==2&&print$F[$i{
+"Tu"}];'