Comment éviter une division par zéro en perl

Je travail sur un logiciel écrit en Perl par des gens qui visiblement ne maîtrisaient complètement leur art… J’en veux pour preuve un petit extrait dudit logiciel :


Bravo, le développeur à penser à gérer le cas de la division par zéro… Ce qui me gêne le plus, c’est la façon dont il détecte cette division par 0… Avec une expression régulière qui teste si il n’y a pas de chiffre autre que 0 dans ce nombre !

Les moins tordus d’entre nous aurait peut être préféré écrire « $i != 0 », mais s’eu été beaucoup trop simple 😉

Moi, j’aurai même été tenté d’écrire juste :

Laisser un commentaire

Votre adresse ne sera pas publiée.

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.