原创：计算星期几的脚本
由于ROS没有星期的数据，给定时调度方面造成一些困扰，虽然也可以换一个思路实现，比如给每天做一个调度，执行间隔为7天，但是显得很烦琐搜索了很久，也没有找到类似的解决办法，于是经过一些思考就写了一个计算星期几的脚本，经测试达到了预期的设想，由于是在学习期间，也是为了练习一下写脚本的基本功
练习中的心得：任何变量在使用前必须先经过赋值初始化，否则会产生意想不到的结果，我在这方面走了不少弯路，最后才发现是这个问题，新手可以作为一个借鉴
##############################################################
#脚本名称:week #
#脚本功能:计算当前日期是星期几 #
#脚本用法:在其他脚本中运行/sys scr run week #
# 然后用变量$WEEK取得计算结果，0为星期天 #
#脚本作者:hcb #
#创建日期:2007-11-30 #
##############################################################
:global WEEK 0
#-------------------------------------------------------
#取当前日期，变成数字YY(年)，MM(月),DD(日)
:set str (jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec)
:set tmp
:set YY [:tonum([:pick $tmp 7 11])]
:set DD [:tonum([:pick $tmp 46])]
:set n 1
:set MM $n
:set s [:pick $tmp 03]
:foreach i in=$str do={
:if($s=$i) do={:set MM $n}
:set n ($n + 1)
}
#------------------------------------------------------
#以2000年1月1日星期6为基准,
#计算2000年1月1日到现在经过了多少天
#基准年
:set y1 2000
#基准年1月1日是星期几
:set w1 6
#基准初始天数，即星期几-1
:set day ($w1 - 1)
#计算到现在的总天数
:set d 0
:for y from=$y1 to=$YY do={
:set m2 12
:if($y=$YY) do={:set m2 $MM}
:for m from=1 to=$m2 do={
:set temp "若是本月，则该月取现在天数,本行是注释"
:if($m=$m2) do={:set d $DD}\
else={
:set temp "若是2月，要考虑平月闰月,本行是注释"
:if($m=2) do={
:set temp "润年是四年一润,本行是注释"
:if($y -($y/4)*4=0) do={:set d 29} else={:set d 28}
}
:if($m!=2) do={
:set tmp "若是小月，则该月天数为30天,否则是31天，本行是注释"
:if($m=4||$m=6||$m=9||$m=11) do={:set d 30} else={:set d 31}
}
}
:set tmp "总天数加该月天数,本行是注释"
:set day ($day + $d)
}
}
#----------------------------------------------------------
#计算总天数除以7的余数就是星期几
#这是一个特殊的算法，由于ROS没有求余的运算，又不支持小数，故如此
:set WEEK ($day -($day/7)*7)
#----------脚本结束---------
[ 本帖最后由 hcb 于 2007-12-1 13:40 编辑 ] 强啊,顶一下 在那个地方可以看到效果呀 在你的脚本里面使用变量$WEEK，其值就是星期的几，数字从0到6
可以把上面的脚本复制建立一个脚本,名为week, (其实也可以任意叫其他名字，调用时选正确就是了)
然后在终端里运行
/sys scr run week
:put $WEEK
这样就显示了结果，看看对不对 帮你顶起来,虽然暂时还用不上,不过还是收藏了起来,还有谢谢你上次的帮助.
:handshake 其实ROS应该有星期的数据，只是不知如何输出，不然filter里不会有星期的设置 怎么我检测出来一只都是 0 的?
今天已经星期一了,可是我检测到还是0啊,脚本照上面复制的,
运行
:set shendown1
:set shendown2
:set shendown3
:set shendown ("现在时间是： " . $shendown1 . " " . $shendown2 . " 星期" . $WEEK)
:log info $shendown
检测出来的星期一直是0
是我哪里搞错了吗? 我在应用的过程中，也发现了这一问题，后来变通的解决了
那就是ROS的脚本执行顺序的问题，当主脚本调用另外一个子脚本的时候，主脚本并没有停下来等待子脚本完成，而是继续执行主脚本的下一语句，实际上是并发的在运行两个脚本，子脚本运行始终是要多花时间的，而这时在主脚本中引用全程变量的值并没有被改变，所以得不到正确的结果
ROS的脚本，和常规的其他程序脚本还是有一些另类的
解决的办法是在调用子脚本的后面加一条等待语句，等待子脚本的完成，到底等待多久，要取决于子脚本的运行时间，但在不影响应用的情况下，多等待一下是比较稳妥的
把你上面的代码换成下面的就可以了:
:set shendown1
:set shendown2
/sys scr run week
#停留1秒钟，等待星期的计算完成,或者时间改短点也行
:delay 1
:set shendown ("现在时间是： " . $shendown1 . " " . $shendown2 . " 星期" . $WEEK)
:log info $shendown 嗯,应用成功了,谢谢.
[ 本帖最后由 17941487 于 2007-12-3 11:45 编辑 ] 今天发现一个错误，今天(2007-12-08)的星期数算出来居然是错误的
一步一步的排查，发现 tonum命令有bug, (或者是我的用法不对?)
发现有时tonum得不到正确结果
在控制台做如下测试
Terminal vt102 detected, using multiline input mode
> :put [:tonum "01"]
1
> :put [:tonum "02"]
2
> :put [:tonum "03"]
3
> :put [:tonum "04"]
4
> :put [:tonum "05"]
5
> :put [:tonum "06"]
6
> :put [:tonum "07"]
7
> :put [:tonum "08"]
> :put [:tonum "09"]
> :put [:tonum "10"]
10
>
发现"08" "09"两个得不到结果
为避免这个错误，就对原来的代码进行一点改进，把前面的0去掉再转换
原来的
:set DD [:tonum([:pick $tmp 46])]
改为
:set s [:pick $tmp 4 6]
:if([:find $s "0"]=0) do={:set s [:pick $s 1 [:len $s]]}
:set DD [:tonum($s)]
结果纠正了该错误
完整的代码为:
##############################################################
#脚本名称:week #
#脚本功能:计算当前日期是星期几 #
#脚本用法:在其他脚本中运行/sys scr run week #
# :delay 1s #
# 然后用变量$WEEK取得计算结果，0为星期天 #
#脚本作者:hcb #
#创建日期:2007-11-30 #
##############################################################
:global WEEK 0
#-------------------------------------------------------
#取当前日期，变成数字YY(年)，MM(月),DD(日)
:set str (jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec)
:set tmp
:set YY [:tonum([:pick $tmp 7 11])]
:set s [:pick $tmp 4 6]
:if([:find $s "0"]=0) do={:set s [:pick $s 1 [:len $s]]}
:set DD [:tonum($s)]
:set n 1
:set MM $n
:set s [:pick $tmp 03]
:foreach i in=$str do={
:if($s=$i) do={:set MM $n}
:set n ($n + 1)
}
#------------------------------------------------------
#以2000年1月1日星期6为基准,
#计算2000年1月1日到现在经过了多少天
#基准年
:set y1 2000
#基准年1月1日是星期几
:set w1 6
#基准初始天数，即星期几-1
:set day ($w1 - 1)
#计算到现在的总天数
:set d 0
:for y from=$y1 to=$YY do={
:set m2 12
:if($y=$YY) do={:set m2 $MM}
:for m from=1 to=$m2 do={
:set temp "若是本月，则该月取现在天数,本行是注释"
:if($m=$m2) do={:set d $DD}\
else={
:set temp "若是2月，要考虑平月闰月,本行是注释"
:if($m=2) do={
:set temp "润年是四年一润,本行是注释"
:if($y -($y/4)*4=0) do={:set d 29} else={:set d 28}
}
:if($m!=2) do={
:set tmp "若是小月，则该月天数为30天,否则是31天，本行是注释"
:if($m=4||$m=6||$m=9||$m=11) do={:set d 30} else={:set d 31}
}
}
:set tmp "总天数加该月天数,本行是注释"
:set day ($day + $d)
}
}
#----------------------------------------------------------
#计算总天数除以7的余数就是星期几
#这是一个特殊的算法，由于ROS没有求余的运算，又不支持小数，故如此
:set WEEK ($day -($day/7)*7)
[ 本帖最后由 hcb 于 2007-12-8 09:27 编辑 ] 好东西，收藏了。 再改一句有潜在问题的
原来
#基准初始天数，即星期几-1
:set day ($w1 - 1)
改为
#基准初始天数，即星期几-1
:if($w1>0) do={:set day ($w1 - 1)} else={:set day 6} 怎么我换了上面的反而显示不出来的?
忘记了，要先对变量赋值，否则出错，这是ROS脚本的特点，一不小心就忘记了
:set day 0
:if($w1>0) do={:set day ($w1 - 1)} else={:set ady 6}
对于该例子中特定的
:set w1 6
你照原来的那样也没问题的，但如果基准改成其他日子，正好是星期天的话，原来的就有问题 :foreach i in="mon,tue,wed,thu,fri,sat,sun" do={
/ip fir fil add chain=output protocol=icmp \
time=(0 . s . "-" . 23 . h . 59 . m . , . $i) action=add-dst-to-address-list \
address-list=$i address-list-timeout=30s comment=(week . $i)
}
/ping 4.3.2.1 count=2
/ ip firewall address-list
:global week list]
remove
:foreach i in="mon,tue,wed,thu,fri,sat,sun" do={
/ip fir fil remove (week . $i)
}
:log info ( . " " . $week . " " .
:if (!="") do={
:set tt on-event]
/sys scr set source=( source] . "\n:global week 8")
} ELSE={
/sys sch add name="startup" on-event=script-startup start-time=startup
/sys scr add name=script-startup source=":global week 8"
}
俺来写一个
页:
[1]
2