Étape 7: mettre ensemble
Copiez et collez ce code,#! / usr/bin/perl
$operation = < STDIN > ;
Si ($operation = ~ m/multiplier /)
{
imprimer « entrez un nombre : \n » ;
$a = < STDIN > ;
imprimer « entrez un nombre pour multiplier $a:\n » ;
$b = < STDIN > ;
$c = $a * $b ;
imprimer "$a multiplyed par $b = $c\n" ;
}
Si ($operation = ~ m/ajouter /)
{
imprimer « entrez un nombre : \n » ;
$a = < STDIN > ;
imprimer « entrez un nombre pour ajouter à $a:\n » ;
$b = < STDIN > ;
$c = $a + $b ;
imprimer "$a ajouté $b = $c\n" ;
}