如何设置脚本的有效期？

zhangfenyun

我想让perl脚本只能在2014年5月1号之前运行，用什么函数？

mcshell

1. use  Time::Local;
   
2. exit 0 if time >=timelocal(0,0,0,1,4,2014);
   
3. 
   
4. ...........

复制代码

104359176

now() 获取当前的时间。但客户如果修改系统时间，就不行了。
如果通过网络获取一个标准时间，不上网就不行了。
如果内置一个计数器，重装就不行了。

MMMIX

回复 1# zhangfenyun


    压根就没有这种函数，你得自己写。可就算你写了，既然是脚本，别人改个日期不照样能运行？

ttcn_cu

say("脚本只能在2014年5月1号之前运行， 继续（y/n)");
<>;
chomp;
exit unless /y/;

104359176

回复 5# ttcn_cu


    如果您觉得值，就请在2014-5-1日前汇款100元到指定支付宝账户：15013725234，如果不付，我也没办法。

ttcn_cu

回复 6# 104359176


    人家都说是脚本了好吧， 难道要我教他 bytecode么

$(Target).o: $(Target).pl

        perl perl -MO=Bytecode,-b,-H,-o$(Target).o $(Target).pl

zhangfenyun

   谢谢     富足长乐