求教一个退出循环的方法

chuchumaolu

大家好，我不是学编程的，我用的是perl

我现在要解决一个问题
A：判断是否终止;否则，执行动作，调用B
% Z3 P- b# N! d: A7 D' X! X# O/ XB：执行另一个动作，调用C
, h- I" S2 Q; {# h" P1 EC：执行另一个动作，调用A

( S8 p, [  i1 B0 d4 @; `, k实际，我的这个循环是几个子程序之间的循环，但是，有判断终止的条件
/ v! c: T7 ~8 {# O; {
+ I: I$ ^0 q) Q2 K我的邮箱是: jingyc01@163.com

3 X2 o. [/ J  O0 y& e* r! r
! n, h( K/ t$ U$ ]哪位达人教教小弟了

孤寂冷逍遥

chuchumaolu

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

madio

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

chuchumaolu

coding....
/ C" h0 H, r2 X; E' [; K$ z
% C7 [! w% R* b+ g1 g&subroutine()

+ x9 m& d9 ~  K) u1 X. Y, Plabel
) E4 C$ P$ j! O# Y. f
############
: x0 R( z8 _5 V4 Osub subroutine {
9 ^* i( u7 c3 j3 ?5 k" g if () {                          # 退出循环
7 K% k+ L6 D( L5 ggoto label
7 Y3 B" @7 L! ?: v- u1 ?; W} else {
+ H; Q& S' w! \' r/ |3 i, q* o, ?% dcoding                        #  执行代码
&subroutine()
6 d( N: W$ q, u6 D% d+ N# E  p3 t}
}

yingxiaowang

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