Do ex. 4

scripting/perl/exercice.tex

@@ -28,6 +28,8 @@
 
     \item Écrire un programme qui lit les valeurs de 2 nombres et affiche à l’écran leur produit.
 
+        \lstinputlisting{./produit.pl}
+
     \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.
         Si l’utilisateur saisit `Fred' et `3', la sortie sera donc: \texttt{Fred Fred Fred}.
 

scripting/perl/produit.pl

@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+# Programme qui affiche le produit de deux nombres lus.
+# On peut entrer les nombres en arguments de CLI ou sinon le script les demandera.
+
+my ($a, $b);
+
+if ($#ARGV + 1 == 1) {
+    $a = $ARGV[0];
+}
+elsif ($#ARGV + 1 >= 2) {
+    $a = $ARGV[0];
+    $b = $ARGV[1];
+}
+
+unless ( length $a ) {
+    print "a : ";
+    $a = <STDIN>;
+    chomp $a;
+    $a += 0 or die "$a n'est pas un nombre !\n";
+}
+unless ( length $b ) {
+    print "b : ";
+    $b = <STDIN>;
+    chomp $b;
+    $b += 0 or die "$b n'est pas un nombre !\n";
+}
+
+my $produit = $a * $b;
+
+print "$a * $b = $produit\n";