Foro - Perl en Español

Tengo este programa para hacer:

«Escribe un programa que pregunte por una lista de números hasta que la entrada sea "999". Y después imprime la suma de todos los números, menos el "999". Por ejemplo, si el usuario entra 1, 2, 5, y 999, la respuesta es 8 (1+2+5)».

Pero no sé cómo capturar los números ingresados y sumarlos.

Por favor, ¿alguien podría ayudarme?

Bienvenido a los foros de Perl en Español, CrisPerl.

Para leer los números, por el teclado, suponemos que el usuario los va a escribir en una sola línea y separados con comas.

Con esta línea los puedes leer:



Finalmente, queda por hacer la suma. Tienes que hacer un bucle por @numeros y sumas el elemento a una variable escalar, que irá guardando el total, pero antes debes comprobar si el elemento es 999. En ese caso ejecutas un "last" para que el bucle termine.

¡¡¡muchas gracias, explorer!!!

Cris