[问题求助] 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 -e "print '=' x 3"
复制代码