probleme de variable

Version imprimable

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:

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

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

Code:

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.

05/12/2010, 11h45
www.rubis

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
05/12/2010, 12h58
djibril

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.
05/12/2010, 16h16
www.rubis

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

Citation:

#!/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

Code:

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";

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:

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

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:

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";
###################################################

Merci pour toute vos reponse
Cordialement

05/12/2010, 23h31
djibril

scalar=> nombre d'éléments dans un tableau.
06/12/2010, 18h32
www.rubis

probleme resolut

Merci pour toute vos reponse

Cordialement