#Increment currentruleid
a = do add $currentruleid 1
> b
if $a eq 0
c = search $b 'Sum[ ]*:[ ]*[a-zA-Z\0-9]*'
currentruleid = findval $c
else
do commitmode
return $a
fi create ipf rule entry ruleid $currentruleid transprot eq tcp destport eq num $2 dir （续前行）in srcaddr eq $6 destaddr self storestate enable act accept seclevel low
（续前行）medium high 上面是一个程序块，不知道是什么语言写的。
a = do add $currentruleid 1
> b
if $a eq 0
c = search $b 'Sum[ ]*:[ ]*[a-zA-Z\0-9]*'
currentruleid = findval $c
else
do commitmode
return $a
fi create ipf rule entry ruleid $currentruleid transprot eq tcp destport eq num $2 dir （续前行）in srcaddr eq $6 destaddr self storestate enable act accept seclevel low
（续前行）medium high 上面是一个程序块，不知道是什么语言写的。
perl听说过，但没用过，哪位介绍介绍一下，在什么情况下使用阿，对比其他语言有些什么特点？
多谢 ！
do noncommitmode
delete pfraw subrule entry ruleid $2 subruleid 1
delete pfraw rule entry ruleid $2
delete pfraw subrule entry ruleid $3 subruleid 1
delete pfraw rule entry ruleid $3
do commitmode****************************************************************# Higher Layer($1) is Bridge1483 - EOA withoutIP + bridge portif $1 eq bridge1483 a = create eoa intf ifname $2 lowif $3
if $a neq 0
delete atm vc intf ifname $3
return 0
else
# CREATE bridge port
b = create bridge port intf ifname $2
if $b neq 0
# Rollback -- delete eoa intf created above
delete eoa intf ifname $2
delete atm vc intf ifname $3
fi
fi
return 1
fi
-------------------------------------------------------------------------
您好,网美书店全场5折-8.8折,深圳东莞所有地区送书上门(免配送费),书到付款！网美书店网址：http://www.wanme.com咨询QQ： 419777139
就是perl
这个就是shell脚本
不过实在是看不明白这段程序是做什么的
-_-!!
这个shell script在nucleus下执行，我不知道与unix下的shell script有什么不同没有，请高手指点