如何設置腳本的有效期？

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() 獲取當前的時間。但客戶如果修改系統(tǒng)時間，就不行了。
如果通過網絡獲取一個標準時間，不上網就不行了。
如果內置一個計數器，重裝就不行了。

MMMIX

回復 1# zhangfenyun


    壓根就沒有這種函數，你得自己寫。可就算你寫了，既然是腳本，別人改個日期不照樣能運行？

ttcn_cu

say("腳本只能在2014年5月1號之前運行， 繼續(xù)（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

   謝謝     富足長樂