求教一个退出循环的方法

chuchumaolu

大家好，我不是学编程的，我用的是perl
' {/ }1 P  S7 O  |
) F! C" N( l/ I  b6 ^我现在要解决一个问题
A：判断是否终止;否则，执行动作，调用B
% T8 ]# b4 l& `B：执行另一个动作，调用C
# z  U/ v6 r8 j2 w2 t# x7 G7 dC：执行另一个动作，调用A

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

我的邮箱是: jingyc01@163.com


% L8 W# s! p) }" [* z+ s哪位达人教教小弟了

孤寂冷逍遥

chuchumaolu

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

madio

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

chuchumaolu

coding....

&subroutine()
0 X( E7 B1 X( O3 k$ Z8 e
1 ^  P% Q3 ]  X* s* c0 `; G, @* slabel
' Y$ S6 A# C5 B' @* ^, |: E
" h. v2 [8 G' f; S9 z' M8 N4 F. h############
sub subroutine {
if () {                          # 退出循环
) e$ \& F7 P: @: Q$ E& T4 d* xgoto label
} else {
coding                        #  执行代码
$ w6 r) A5 J( e8 \' U: P/ f) }&subroutine()
- z8 Y+ j' ]- ?6 x1 o. v6 H  B}
}

yingxiaowang

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