Break en perl

mgrubio · #1 (**permalink**) 08/11/2006, 12:07

Hola. Este es mi codigo, me gustaria que cuando $linea fuera 1, se pasara a la siguiente iteracion del while, pero no me reconoce el break, ¿como puedo hacerlo?

while(<BIN>) {
if ($linea ==1){
$linea ++;
break;
} else {......}
}

monoswim · #2 (**permalink**) 08/11/2006, 13:27

while(<BIN>) {
if ($linea ==1){
$linea ++;
next;
} else {......}
}

Es next, no break...

Saludos

jferrero · #3 (**permalink**) 09/11/2006, 03:52

Es last. Si lo que pretendes es salir inmediatamente del bucle while, debes poner last.

mgrubio · #4 (**permalink**) 09/11/2006, 16:14

Lo que pretendo es pasar a la siguiente iteracion del bucle while, es decir, salir del if.

monoswim · #5 (**permalink**) 10/11/2006, 07:53

Usa NEXT

Pasa a la siguiente iteración del bucle !!!

Saludos

mgrubio · #6 (**permalink**) 10/11/2006, 08:43

muchas gracias!

internetdominus · #7 (**permalink**) 10/11/2006, 11:22

no hay una funcion "forever" por alli? :)

P.D. Solo es broma

jferrero · #8 (**permalink**) 10/11/2006, 14:23

Si:
while("forever") { ... }

mgrubio · #9 (**permalink**) 11/11/2006, 03:21

¿Y eso ke es lo que hace?

mgrubio · #10 (**permalink**) 11/11/2006, 08:28

No os preocupeis, ya me sale todo bien.

Gracias de todas formas.