Discussion :

[octaria]

Bonjour

je tente de coder une calculatrice pour apprendre le Perl mais j'ai un petit soucis que je ne comprend pas malgrés une recherche sur le forum et sur le web cette erreur m'embête quelque peu. Je ne vois pas d'erreur de syntaxe m'enfin quand on commence souvent des erreurs bêtes

Voici l'erreur exacte :

Can't modify addition (+) in list assignment at calculette.pl line 25, near "$val;"


Merci de votre aide

et voici ma source:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/usr/bin/perl -w
 
use strict;
use warnings;
 
my $poperateur;
my $doperateur;
my $operande;
my $val;
 
 
print "###################Calculatrice####################\n";
 
print "Entrez le premier operateur\n";
$poperateur = <stdn>;
 
print "Entrer votre operande + - * /\n";
$operande = <stdn>;
 
print "Entrez votre second operateur\n";
$doperateur = <stdn>;
 
if($operande == "+")
         {
                $poperateur + $doperateur = $val;
		print "La somme de $poperateur et $doperateur est $val\n";
 
         }
elsif($operande == "-")
         {       
                $poperateur - $doperateur = $val;
		print "La soustraction de $poperateur et $doperateur est $val\n";
 
         }
elsif($operande == "*")
         {       
                $poperateur * $doperateur = $val;
		print "La multiplication de $poperateur et $doperateur est $val\n";
 
         }
elsif($operande == "/")
         {       
                $poperateur / $doperateur = $val;
		print "La division de $poperateur et $doperateur est $val\n";
 
          }
else{}

[djibril]

== est à utiliser quand tu compares des nombres et eq si tu compares des chaines de caractères.

Dans ton shebang, tu n'as pas besoin de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

-w

, il est remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

use warnings;

Je t'ai rajouté des chomp pour enlever les retour chariot qu'il y aura suite au STDIN.

c'est <STDIN> et non <stdn>

on assigne une valeur ou clacul à une variable et pas l'inverse. J'ai corrigé ton code. Essaye de le comprendre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/usr/bin/perl
 
use strict;
use warnings;
 
my $poperateur;
my $doperateur;
my $operande;
my $val;
 
print "###################Calculatrice####################\n";
 
print "Entrez le premier operateur\n";
$poperateur = <STDIN>;
chomp($poperateur);
 
print "Entrer votre operande + - * /\n";
$operande = <STDIN>;
chomp($operande);
 
print "Entrez votre second operateur\n";
$doperateur = <STDIN>;
chomp($doperateur);
 
if ( $operande eq "+" ) {
    $val = $poperateur + $doperateur;
    print "La somme de $poperateur et $doperateur est $val\n";
 
}
elsif ( $operande eq "-" ) {
    $val = $poperateur - $doperateur;
    print "La soustraction de $poperateur et $doperateur est $val\n";
 
}
elsif ( $operande eq "*" ) {
    $val = $poperateur * $doperateur;
    print "La multiplication de $poperateur et $doperateur est $val\n";
 
}
elsif ( $operande eq "/" ) {
    $val = $poperateur / $doperateur;
    print "La division de $poperateur et $doperateur est $val\n";
 
}
else { 
    print "Rien fait\n";
}

[octaria]

Merci beaucoup je regarde ça.