perl每日10执行怎么设定

/定义变量；Dim RunTime,TimeNow

RunTime=CDate("00:30:00")//检测时间；Rem CheckTime

//取当前时间；TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))

MyVer = DateDiff("s",TimeNow,RunTime)

If MyVer<60

Goto Main

Else

Delay 50000

Goto CheckTime

EndIf

//调用你要执行的代码；

Rem Main //停止功能可以把执行时间设置成23个小时就行了。

if(){ }\x0d\x0a\x0d\x0aelsif(){ }\x0d\x0a\x0d\x0aelsif(){ }\x0d\x0a\x0d\x0aelsif(){ }\x0d\x0a\x0d\x0aelsif(){ }\x0d\x0a\x0d\x0aelsif(){ }\x0d\x0a\x0d\x0aelsif(){ }\x0d\x0a\x0d\x0aelsif(){ }\x0d\x0a\x0d\x0aelse{ }\x0d\x0a\x0d\x0aif (条件) { } \x0d\x0aelsif(条件) { }\x0d\x0aelsif(条件) { }\x0d\x0aelsif(条件) { }\x0d\x0a...\x0d\x0aelsif(条件) { }\x0d\x0aelse \x0d\x0a\x0d\x0aif（条件1 &&　条件2　｜｜　条件3）｛\x0d\x0a 正文\x0d\x0a｝

perl -d 即可进入DEBUG模式，详细DEBUG过程，可参考GDB调试，其实记几个常用的就够用了。 常用的DEUBG指令如下： n：代表执行下一行代码 s：进入子函数 b：设置断点 c：继续运行直到断点处暂停 r：程序执行到结束 print可以输出相关变量值

---