Discussion :

[Jasmine80]

Bonjour,

J'ai un petit problème avec la requête suivante. J'interroge plusieurs tables d'une base de données via un script Perl. J'aimerais appeler ces tables une à une dans une boucle.

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
my $Table1="SHV";
my $Table2="TEM";
my $Table3="OXA";
my $Table4="CTX_M";
my $Table5="CMY";
my $Table6="IMP";
my $Table7="VIM";
my $Table8="KPC";
my $Table9="GES";
my $Table10="PER";
my $Table11="VEB";
my $Table12="SME";
my $Table13="OXY";
my $Table14="LEN";
my $Table15="OKP";
 
for (my $a=1; $a<16; $a++)
{
        my $sql = "SELECT * FROM \$Table$a";
        print $sql."\n";
 
 
}

Résultats

SELECT * FROM $Table1
SELECT * FROM $Table2
SELECT * FROM $Table3
SELECT * FROM $Table4
SELECT * FROM $Table5
SELECT * FROM $Table6
SELECT * FROM $Table7
SELECT * FROM $Table8
SELECT * FROM $Table9
SELECT * FROM $Table10
SELECT * FROM $Table11
SELECT * FROM $Table12
SELECT * FROM $Table13
SELECT * FROM $Table14
SELECT * FROM $Table15

Pourriez-vous s'il vous plait me dire comment faire afin qu'il affiche mes noms de tables dans les requêtes.

Je peux contourner ce problème en entrant mes noms de tables dans une array et faire une boucle en appelant un à un les composantes de mon array.
Y a-t'il dans ces deux approches, l'une meilleure que l'autre?


De l'autre manière cela fonctionne très bien:

Code :

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

1
2
3
4
5
6
7
8
9
my @Table = ("SHV","TEM","OXA","CTX_M","CMY","IMP","VIM","KPC","GES","PER","VEB","SME","OXY","LEN","OKP");
 
for (my $a=0; $a<15; $a++)
{
        my $sql = "SELECT * FROM $Table[$a]";
        print   $sql."\n";
 
 
}

SELECT * FROM SHV
SELECT * FROM TEM
SELECT * FROM OXA
SELECT * FROM CTX_M
SELECT * FROM CMY
SELECT * FROM IMP
SELECT * FROM VIM
SELECT * FROM KPC
SELECT * FROM GES
SELECT * FROM PER
SELECT * FROM VEB
SELECT * FROM SME
SELECT * FROM OXY
SELECT * FROM LEN
SELECT * FROM OKP

Merci beaucoup,

Jasmine

[2Eurocents]

Bonjour,

La première approche me gène un peu par la profusion de variables qu'elle entraîne, alors que ce n'est pas forcément nécessaire.

La seconde approche me plaît davantage car plus économe. J'aurai juste tendance à éviter une boucle comptée, et ça reste assez clair :

Code :

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

1
2
3
4
5
6
7
8
my @Table = ("SHV","TEM","OXA","CTX_M","CMY","IMP","VIM","KPC","GES","PER","VEB","SME","OXY","LEN","OKP");  
# Peut aussi être remplacé par :
# my @Table = qw(SHV TEM OXA CTX_M CMY IMP VIM KPC GES PER VEB SME OXY LEN OKP); 
 
foreach my $table_select (@Table) {
  my $sql = "SELECT * FROM $table_select"; 
  print $sql."\n";
}

Enfin, les différences ne sont pas fondamentales.

[Jasmine80]

Merci beaucoup, j'ai modifié mon script et cela fonctionne très bien. J'aimerais quand même savoir comment aurais-pu réussir mes requêtes via la première méthode. Pourrais-tu me répondre s'il te plait?

Merci,

Jasmine,

[MarneusCalgarXP]

Pour la 1° solution, il aurait fallu procéder comme suit :

Code :

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

1
2
3
4
5
6
7
 
for (my $a=1; $a<16; $a++)
{
        my $reference = "Table$a";
        my $sql = "SELECT * FROM $$reference";
        print $sql."\n";
}

Mais il vaut mieux utiliser la seconde méthode, beaucoup plus propre à mon gout

[Woufeil]

De tout façon, en programmation, il faut éviter au maximum les répitions, il y a toujours plus concit et généralement plus efficace

Donc comme cela a déjà été dit, la deuxième approche est meilleure.
D'autant que la première utilise, si je ne m'abuse, les références symboliques, ce qui n'est pas particulièrement "propre" à mon goût...

[Jasmine80]

Rebonjour;

Ca ne fonctionne pas de cette manière

Code :

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

1
2
3
        my $reference = "Table$a";
        my $sql = "SELECT * FROM $$reference";
        print $sql."\n";

car j'ai en erreur

Can't use string ("Table1") as a SCALAR ref while "strict refs" in use

Enfin, c'est pas grave car j'utilise l'autre façon de procéder qui est plus propre, mais c'était juste histoire de mourir moins idiote car j'aime bien comprendre pourquoi les choses, même inutiles, ne fonctionnent pas.

Merci,


Jasmine,

[djibril]

ce n'est pas $$!

Code :

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

1
2
3
  my $reference = "Table$a";
        my $sql = "SELECT * FROM $reference";
        print $sql."\n";

[MarneusCalgarXP]

Si, c'est bien $$, car elle veut afficher le nom de la table et non le nom de la variable (relis bien le 1° post).

Pourriez-vous s'il vous plait me dire comment faire afin qu'il affiche mes noms de tables dans les requêtes.

Elle a des variables déclarées ainsi:

Code :

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

my $Table1 = "SHV";

et elle veut afficher

Code :

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

SELECT * FROM SHV;

au lieu de

Code :

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

SELECT * FROM Table1;

Néanmoins, pour utiliser le $$ il faut proscrire le use strict, ou au moins rajouter un pragma

Code :

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

no strict 'refs';

pour que cela fonctionne, et c'est en cela que la solution n'est pas propre...

[Jasmine80]

Tant pis, ça ne fonctionne toujours pas car ça continue d'afficher Table1 au lieu de SHV.

[MarneusCalgarXP]

Pour que ca fonctionne, il faut que les variables "TableX" soient déclarées en our et non en my:

Code :

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

1
2
3
4
5
6
7
8
9
use strict; 
no strict 'refs';
 
our $Table1 = 'SHV';
 
my $a = 1;
my $reference = "Table$a";
my $sql = "SELECT * FROM $$reference";
print($sql); # affiche "SELECT * FROM SHV"

Tout est décrit dans la page perlref, dans le paragraphe sur les références symboliques :
PerlRef traduit par enstimac (format PDF)

voila ;o)

[Jasmine80]

Ah oui, ça fonctionne bien maintenant, merci beaucoup.
Je viens d'imprimer ce document sur les références, ce sont des choses que je ne connais pas bien, je vais le lire.