$ typeset -f pcal
pcal ()
{
perl -MList::MoreUtils=natatime -le '$it=natatime(7, (qw(Sun Mon Tue Wed Thr Fri Sat), (undef)x((8+@{[localtime]}[6]-@{[localtime]}[3])%7),(1..30))); print join qq(\t), @days while (@days=$it->())'
}
pcal ()
{
perl -MList::MoreUtils=natatime -le '$it=natatime(7, (qw(Sun Mon Tue Wed Thr Fri Sat), (undef)x((8+@{[localtime]}[6]-@{[localtime]}[3])%7),(1..30))); print join qq(\t), @days while (@days=$it->())'
}
没有评论:
发表评论