求教一个退出循环的方法

chuchumaolu

大家好，我不是学编程的，我用的是perl
$ h$ I" A: Z+ z8 F7 q
% V( h" n+ }9 k+ l2 i; M5 ?4 f我现在要解决一个问题
A：判断是否终止;否则，执行动作，调用B
9 i9 Z0 E: S& r' M/ p, L3 mB：执行另一个动作，调用C
' U! A* s. F' N  D' SC：执行另一个动作，调用A

实际，我的这个循环是几个子程序之间的循环，但是，有判断终止的条件

我的邮箱是: jingyc01@163.com

+ `  z$ B, N+ j/ x, `
哪位达人教教小弟了

孤寂冷逍遥

chuchumaolu

用goto搞定了，不知道那位达人，还有更好的方法

madio

perl不懂，但是php的break语句后面可以加数字，表示跳出第几层循环，不知道perl里面有没有？

chuchumaolu

coding....
( S8 H) U. H  p* z7 t
&subroutine()
7 Y: C. r9 a4 M" E# H( [- W
label

############
& ^3 E( y. v: lsub subroutine {
if () {                          # 退出循环
goto label
7 t" T$ v, z6 k& b6 Z+ n} else {
coding                        #  执行代码
) r1 A# k+ W9 ?3 U3 e2 @9 M9 Z/ a&subroutine()
}
}

yingxiaowang

看来有好多程序语言啊。。。