[PERL] Nom de Variable Dynamique

**mcshu** · 21/11/2006, 14h55

Bonjour,

Je suis une débutante en langage PERL.
Je souhaiterai savoir comment avec un incrément $i créer des noms de variables dynamiquement.
Je me perds dans la syntaxe.

Ce serait pour utiliser des noms de tableaux de hashage % différents en référence \ dans un tableau @.
Je ne sais pas si je suis claire.
Merci d'avance.

**GnuVince** · 21/11/2006, 15h08

Je suis un peu perdu par ton explication, plus de contexte pourrait aider (ce que tu veux mettre dans ton hash par exemple). C'est certain qu'il existe une façon plus propre de régler ton problème. Par contre, dans le but d'informer, voici comment faire:

Code :

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

1
2
3
4
5
6
7
 
{
    no strict 'vars';
    $i = 10;
    ${"foo$i"} = "dynamique!";
    print $foo10, "\n";
}

**mcshu** · 21/11/2006, 15h22

Merci bcp, ça marche

**mcshu** · 21/11/2006, 15h30

Envoyé par GnuVince

Je suis un peu perdu par ton explication, plus de contexte pourrait aider (ce que tu veux mettre dans ton hash par exemple). C'est certain qu'il existe une façon plus propre de régler ton problème. Par contre, dans le but d'informer, voici comment faire:

Code :

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

1
2
3
4
5
6
7
 
{
    no strict 'vars';
    $i = 10;
    ${"foo$i"} = "dynamique!";
    print $foo10, "\n";
}

Pourrais-tu m'éclairer sur l'utilisation de

no strict 'vars';

?

Est-ce que c'est obligatoire de l'utiliser pour ce problème de variables dynamiques ? Pour un souci de lisibilité et de fiabilité, j'emploie

use strict;

pour la partie déclarative avec my.

Merci.

**GnuVince** · 21/11/2006, 16h01

Si tu utilises use strict, le no strict 'vars' est obligatoire en effet. Et tu es mieux de le mettre dans un bare block, de façon à ce que à la sortie du bloc ça reviennent complètement strict.

**mcshu** · 21/11/2006, 18h10

Envoyé par GnuVince

Si tu utilises use strict, le no strict 'vars' est obligatoire en effet. Et tu es mieux de le mettre dans un bare block, de façon à ce que à la sortie du bloc ça reviennent complètement strict.

C quoi un bare block stp ?

**MarneusCalgarXP** · 21/11/2006, 18h29

Envoyé par mcshu

C quoi un bare block stp ?

C'est un bloc qui commence par une accolade ouvrante et qui se termine par une accolade fermante

**pospos** · 21/11/2006, 19h43

si tu veux creer des variables dynamiquement ce que tu veux c'est une hash table (ou un tableau).
Serieusement, il n'y a presque aucune raison d'utiliser des vairables dynamqiues comme cela.

**GnuVince** · 21/11/2006, 20h42

Envoyé par pospos

si tu veux creer des variables dynamiquement ce que tu veux c'est une hash table (ou un tableau).
Serieusement, il n'y a presque aucune raison d'utiliser des vairables dynamqiues comme cela.

Comme mentionné dans le post original, c'est pour créer ses clés de hash. C'est pourquoi je voulais plus d'informations, car je suis convaincu qu'il existe une façon beaucoup plus simple que de créer des variables dynamiquement.

**mcshu** · 22/11/2006, 15h03

Je suis désolée si je n'ai pas été claire dans ma question et aussi de ne pas avoir fourni de code aux 'forumeurs'.

Je lis les données d'un fichier MVS que je souhaite récupérer dans un tableau de référence de hashage.
Voila.
'Code suite aux réponses'

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
#!/usr/bin/perl -w
 
use strict;
 
use DBI qw(:sql_types);
use Date::Calc qw(:all);
 
#Déclarations
my $fichier_donnees;
my $erreur;
my $FICHIER_MVS;
 
open($FICHIER_MVS, $fichier_donnees) or $erreur = "Echec à l'ouverture du fichier de données";
if ($erreur ne '') {$req = '';fin();}
 
comptage_MVS();
 
close($FICHIER_MVS) or $erreur = "Echec de fermeture du fichier $FICHIER_MVS \n";
if ($erreur ne '')
{
	exit 1;
}
 
exit 10;
 
 
sub comptage_MVS
{
  no strict 'vars';
 
  my $lignes;
  my $organisme;
  my $site;
  my $annee;
  my %tabhash;
  my @tab_lignesMVS;
  my $i; # permet l'utilisation d'un tableau de données pour affecter ligne à ligne
  my $compteur_lignesMVS; #nb total de lignes
  my $cle;
  my $valeur; #Usage par le hashage
 
  $i = 0;
  while ($lignes = <$FICHIER_MVS>)
  {
   	chomp ($lignes);
   	$i++;
    ############ Affectation des valeurs par clé de hashage du tableau de hashage
    ${"tabhash$i"}{SITE} = substr($lignes, 0,4);
    ${"tabhash$i"}{ANNEE} = substr($lignes, 4, 4);
    ${"tabhash$i"}{ORGANISME} = substr($lignes, 8, 3);
 
    ############ Affectation ligne à ligne
    $tab_lignesMVS[$i] = \%{"tabhash$i"};
  }#while
 
  $compteur_lignesMVS = $i;
 
  # Parcours du tableau de hashage 
  $i = 0;
  do
  {
	foreach $cle (keys %{$tab_lignesMVS[$i]})
    {         
         if ($cle eq 'SITE')
         {
           $site = $valeur;
         }
         if ($cle eq 'ANNEE')
         {
           $annee = $valeur;
         }
         if ($cle eq 'ORGANISME')
         {
           $organisme = $valeur;
         }         
      }      
 
    } 
    $i++;	 
  } 
  until ((($site eq 'S173') && ($annee eq '2006') && ($organisme eq '004')) || ($i = $compteur_lignesMVS));  
}

Mon problème est que :
dans les lignes suivantes, si je laisse comme ça sans variable dynamique, si je cherche à me balader dans mon tableau @tab_lignesMVS, je ne récupère pour tous les indices que les données de la dernière affectation càd les données du dernier tableau de hashage affecté à @tab_lignes MVS

'Code avant réponse'

Code :

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

1
2
3
4
5
$tabhash{SITE} = substr($lignes, 0, 4);
    $tabhash{ANNEE} = substr($lignes, 4, 4);
    $tabhash{ORGANISME} = substr($lignes, 8, 3);
 
    $tab_lignesMVS[$i] = \%tabhash;

Sur la partie 'Code suite aux réponses', ce qui ne marche c'est l'emploi dans le même programme de

Code :

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

use strict;

et de

Code :

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

no strict 'vars';

ou bien je m'y prend mal ...

Si vous avez des suggestions sur la manière d'appréhender mon problème, je suis preneuse !!!

Je vous remercie d'avance pour votre aide.
Merci déjà à GnuVince.

**MarneusCalgarXP** · 22/11/2006, 15h59

Pourquoi ne pas faire une hash à 2 niveaux ???

remplacer

Code perl :

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

1
2
3
4
5
6
7
 
    ${"tabhash$i"}{SITE} = substr($lignes, 0,4);
    ${"tabhash$i"}{ANNEE} = substr($lignes, 4, 4);
    ${"tabhash$i"}{ORGANISME} = substr($lignes, 8, 3);
 
    ############ Affectation ligne à ligne
    $tab_lignesMVS[$i] = \%{"tabhash$i"};

par

Code perl :

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

1
2
3
4
5
6
7
 
    $tabhash{$i}{SITE} = substr($lignes, 0,4);
    $tabhash{$i}{ANNEE} = substr($lignes, 4, 4);
    $tabhash{$i}{ORGANISME} = substr($lignes, 8, 3);
 
    ############ Affectation ligne à ligne
    $tab_lignesMVS[$i] = \%{ $tabhash{$i} };