22 lines
413 B
Perl
Executable file
22 lines
413 B
Perl
Executable file
#!/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";
|