Do ex. 3

scripting/perl/circonference_radius_from_user.pl

@@ -9,6 +9,8 @@ use Math::Trig;
 print "Entrez le rayon d'un cercle afin d'en calculer la circonférence : ";
 my $radius = <STDIN>;
 chomp $radius;
+$radius += 0 or die "$radius n'est pas un nombre !\n";
+
 my $circ = 2 * pi * $radius;
 
 print "La circonférence d'un cercle de rayon $radius est : $circ\n";

scripting/perl/circonference_radius_from_user_not_neg.pl

@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Math::Trig;
+
+# Programme qui calcule la circonférence d’un cercle de rayon saisi par l'utilisateur.
+# Ajout de la vérification de l'input.
+
+print "Entrez le rayon d'un cercle afin d'en calculer la circonférence : ";
+my $radius = <STDIN>;
+chomp $radius;
+$radius += 0 or die "$radius n'est pas un nombre !\n";
+
+if ($radius < 0) {
+    $radius = 0;
+    print "On va dire qu'un cercle négatif vaut zéro...\n";
+}
+
+my $circ = 2 * pi * $radius;
+
+print "La circonférence d'un cercle de rayon $radius est : $circ\n";

scripting/perl/exercice.tex

@@ -24,6 +24,8 @@
 
     \item Modifiez le programme précédent en sorte que si l’utilisateur saisit le nombre inférieur à 0, la valeur reportée sera 0 (plutôt que négative).
 
+        \lstinputlisting{./circonference_radius_from_user_not_neg.pl}
+
     \item Écrire un programme qui lit les valeurs de 2 nombres et affiche à l’écran leur produit.
 
     \item Écrire un programme qui lit une chaîne de caractères et un nombre et affiche, sur les lignes séparées, la chaine en question le nombre de fois indiqué par le nombre saisi.