bonjour,

Je debute dans le language PERL et j'ai un probleme avec le code suivant

j'aimerais que

la variable $chaine1 affiche "bonjour1"
la variable $chaine2 affiche "bonjour2"


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
 
 
#!/usr/bin/perl
#
 
###################################################
 
use strict;
 
my ($a, $chaine, $chaine1, $chaine2, $chaine3);
my $chiffre = "1";
my $chaine = "variable";
my $resultat ="bonjour";
 
###################################################
 
while ($chiffre <3) {
 
$ "$chaine$chiffre" = "$resultat$chiffre"; 
$chiffre++;
 
}      
 
 
###################################################
 
my $chiffre = "1";
 
while ($chiffre <3) {
 
print "$chaine$chiffre\n";
 
 
$chiffre++;
 
}
Merci d'avance