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

DAIC

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

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

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

perl -e "print '=' x 3"
复制代码