Comment éviter une division par zéro en perl