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