Question

perl生成一个当前日期命名的txt文件

如题…… 要用windows下的perl脚本 ，谢谢……

Answer 1

下面的程序测试通过，保证正确：

my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)=localtime(time);
$year+=1900;
$fn=">$year-$mon-$mday.txt";
open(FD,$fn);
print FD $fn;
close(FD);