Perl单行命令怎样计算当前系统日期是本月的第几个星期？

DAIC

下面这个Perl脚本可以实现计算：

1. use Date::Calc qw( Today Day_of_Week );
   
2. ($year,$month,$day) = Today();
   
3. $week = int(($day + Day_of_Week($year,$month,1) - 2) / 7) + 1;
   
4. print "$week\n";

复制代码

怎样用类似下面这种Perl单行命令来实现呢？

1. perl -e "print '=' x 3"

复制代码