probleme de variable

**www.rubis** · 04/12/2010, 16h57

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

**djibril** · 04/12/2010, 19h36

La façon propre de procéder et ainsi :

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

Il est très dangereux voir interdit de chercher à créer automatiquement les noms des variables en perl.

**www.rubis** · 05/12/2010, 11h45

Bonjour

merci pour votre reponse

malheuresement je soohaite vraiment a creer automatiquement une variable
pour avancer dans mon programe
et la je suis coincer

si vous avez quand meme une solution ca me permetrais d'avancer a grand pas

Merci d'avance

**djibril** · 05/12/2010, 12h58

Je persiste en disant que ce n'est absolument pas conseillé. Utilise dans ce cas des hash et tes clés feront office de variables.

**www.rubis** · 05/12/2010, 16h16

Merci pour ta reponce

aurais vous un exemple a me propose, le pense par exemple au tableaux de valeurs

@chaine = ("bonjour1","bonjour2","bonjour3");

commemnt remplir le tableau et comment le lire avec le code

#!/usr/bin/perl
use strict;
use warnings;

my ( $a, $chaine, $chaine1, $chaine2, $chaine3 );
my $chiffre = 1;
my $resultat = "bonjour";

###################################################

while ( $chiffre < 3 ) {
$chaine1 = $resultat . $chiffre;
print "$chaine1\n";
$chiffre++;
}

Merci d'avance

**djibril** · 05/12/2010, 16h31

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
#!/usr/bin/perl
use strict;
use warnings;
 
my %chaines;
my $chiffre = 1;
my $resultat = "bonjour";
 
###################################################
 
while ( $chiffre < 3 ) {
  $chaines{"chaine$chiffre"} = $resultat . $chiffre;
  $chiffre++;
}
 
print "chaine1 : $chaines{chaine1}\n";
print "chaine2 : $chaines{chaine2}\n";

**www.rubis** · 05/12/2010, 19h43

merci pour votre reponse

le probleme s'est que lorsque je fais un print $chaine1 ca je n'est pas de valeur

de plus quand je veut faire un print dans un while non plus

ca fais 1 heure que je cherche et la je seche

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
 
#!/usr/bin/perl
use strict;
use warnings;
 
my %chaines;
my $chiffre = 1;
my $resultat = "bonjour";
my ($chaine1, $chaine2, $chaine3 );
 
 
###################################################
 
while ( $chiffre < 3 ) {
  $chaines{"chaine$chiffre"} = $resultat . $chiffre;
  $chiffre++;
}
 
print "chaine1 : $chaines{chaine1}\n";
print "chaine2 : $chaines{chaine2}\n";
 
 
###################################################
 
print "$chaine1 $chaine2";
 
$chiffre = 1;
 
while ( $chiffre < 3 ) {
  print {$chaine.$chiffre}"\n";
  $chiffre++;
}

Merci d'avance

**www.rubis** · 05/12/2010, 20h54

Voici ce que j'ai finalement fait et ca marche

existe t'il une fonction comme pop pour recuperer la derniere valeur sans l'enlever ?? et une fonction pour calculer le nombre d'entrer dans le tableau

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
 
#!/usr/bin/perl
use strict;
use warnings;
 
###################################################
 
my @resultat2;
 
my @test = ();   # déclaration et initialisation
my %chaines;
my $chiffre  = 0;
my $resultat = "bonjour";
 
while ( $chiffre < 3 ) {
  $test[$chiffre] = $resultat . $chiffre;
  $chiffre++;
}
 
$chiffre  = 0;
 
while ( $chiffre < 3 ) {
  print "$test[$chiffre]\n";
  $chiffre++;
}
 
 
@resultat2 = @test;
 
print "Contenu du tableau: @resultat2\n";
print "\n";
###################################################