（求助！）GENESIS PERL程序是否有类似CSH SW CASE语句？

（求助！）GENESIS PERL程序是否有类似CSH SW CASE语句?
因本人正在由CSH向PERL转变，发现CSH的 SW CASE语句写多层板很好
能够通过属性找出层循环，这样不管多少层写的语句也差不多，多好啊！不知PERL是否有
类似的语法，求高手解答！最好贴一段代码！谢谢！

CASE语句?, （求助！）GENESIS

相信小编已经找到了

你又知道了！

小编,3楼地什么都知道
有事就问他吧

3楼是我兄弟