Board logo

标题: [问题求助] Perl单行命令怎样计算当前系统日期是本月的第几个星期？ [打印本页]
作者: DAIC    时间: 2011-6-6 12:35     标题: Perl单行命令怎样计算当前系统日期是本月的第几个星期？

下面这个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"
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2