小编Kri*_*nan的帖子

我想要获得本月的最后一个星期五.我找到了可以完成这项工作的awtome awk脚本.我尝试将其移植到perl但面临一些问题.任何见解都会有很大的帮助.我不能使用除内置模块之外的任何perl模块,这就是为什么我必须完成构建这些东西.

谢谢你的帮助.

AWK脚本:

BEGIN {
split("31,28,31,30,31,30,31,31,30,31,30,31",daynum_array,",") # days per month in non leap year
year = ARGV[1]
if (year % 400 == 0 || (year % 4 == 0 && year % 100 != 0)) {
  daynum_array[2] = 29
}
y = year - 1
k = 44 + y + int(y/4) + int(6*(y/100)) + int(y/400)
for (m=1; m<=12; m++) {
  k += daynum_array[m]
  d = daynum_array[m] - (k%7)
  printf("%04d-%02d-%02d\n",year,m,d)
}
exit(0)
}

我的Perl脚本:

my @time            = localtime;
my …