Monthly Calendar by yibe

#!perl -pl
use Time'Piece;$_=($t=gmtime Time'Local'timegm+(/ /)x4,$'-1,$`)->month." $`
@{['   'x@$t[6],1..$t->month_last_day]}
";s/ \d\b/ $&/g;s/.{21}\K
?/
/g

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page