+ -
当前位置:首页 → 问答吧 → Perl可否计算今天是一年的第几周

Perl可否计算今天是一年的第几周

时间:2010-10-20

来源:互联网

Perl可以获取当前时间,代码如下:
  1. my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  2.         print "$sec $min $hour,$mday,$mon,$year,$wday,$yday,$isdst \n";

  3.         my $now_time = ($year+1900)."-".($mon+1)."-".$mday." ".$hour.":".$min.":".$sec;
复制代码
不知道Perl是否可以计算今天是今年的第几周,比如W1034表示是2010年第34周,谢谢!

作者: hepower   发布时间: 2010-10-20

  1. use POSIX qw(strftime);

  2. warn strftime("%W", localtime(time()));
复制代码

作者: 黑色阳光_cu   发布时间: 2010-10-20