求教一个退出循环的方法

chuchumaolu

大家好，我不是学编程的，我用的是perl
/ @% @& \+ S5 C9 i0 D4 `+ c
我现在要解决一个问题
8 U  n# l* ^  pA：判断是否终止;否则，执行动作，调用B
B：执行另一个动作，调用C
C：执行另一个动作，调用A
+ N. e0 c- n2 g( q( n
& D8 E/ A+ r# p: I2 S/ L) m实际，我的这个循环是几个子程序之间的循环，但是，有判断终止的条件
3 Z8 ^, V) v( V& D9 Q( G
. Y& }8 @+ v- e9 e我的邮箱是: jingyc01@163.com

& t: T( _) @' ?4 r2 ?. s# t. |
  Z0 g! {. t2 F: _哪位达人教教小弟了

yingxiaowang

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

chuchumaolu

coding....
$ A) `. }( y6 n' N( T5 l' d
: l+ m) t3 u8 `( ^, }4 e&subroutine()
; f0 P; f) P9 f2 m) R7 D) M
% T% ~' m3 _0 t2 ~* }4 c- M9 alabel
1 X. h9 d! ^1 l. J; p2 L) f
. w: Q; i% P* C" Y############
sub subroutine {
5 n1 Q6 N* L5 q( x2 Q if () {                          # 退出循环
goto label
/ E' u2 o& ~& Y( X/ C  t# Y} else {
; E* U# k$ y( Q( \4 W$ lcoding                        #  执行代码
- k- Q) s% H% X1 x: w9 m$ |&subroutine()
8 c. C& {5 Z& B/ M7 `}
}

madio

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

chuchumaolu

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

孤寂冷逍遥