Do ex. 5

scripting/perl/exercice.tex

@@ -33,6 +33,8 @@
     \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}.
 
+        \lstinputlisting{./multiply_string.pl}
+
 \end{enumerate}
 
 \end{document}

scripting/perl/multiply_string.pl

@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+# Programme qui lit une chaîne de caractères et un nombre et affiche la chaîne
+# le nombre de fois.
+
+print "Chaîne de caractères : ";
+my $string = <STDIN>;
+chomp $string;
+$string =~ s/^\s+|\s+$//g;
+$string .= ' ';
+
+print "Nombre : ";
+my $nb = <STDIN>;
+chomp $nb;
+$nb += 0 or die "$nb n'est pas un nombre !\n";
+
+my $output = $string x $nb;
+
+print $output."\n";