[langage] erreurs utilisation tableaux 2 dimensions

**drosof** · 01/07/2003, 10h28

bonjour,
jsuis un pur debutant et je pense que ma question va paraitre con a plus d'une personne... en fait je ne maitrise pas les tableaux a deux dimensions en Perl... Ca me fait d erreurs bizarres comme lorske je commence une boucle a 0, g une erreur m'indiquant que 0 est une chaine de caractere alors que ce n'en est pas une...
bref si qq'1 pouvait m'expliker comment creer un tableau a deux dimensions, comment l'initialiser et l'utiliser, ce serait magnifik.. vous me direz ur d'aller sur le net, mais les liens que g trouve ne sont pas vraiment geniaux pour les tableaux a deux dimensions...

sinon g une erreur que je ne comprends pas et ki q un rapport avec un tableau bien sur

en fait j'essaie de faire une comparaison entre deux valeurs

Code :

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

$bestellungen->[$i][4] == prID->[$k]

en accedant a prID de cette maniere j'obtiens l'erreur suivante:

Can't use bareword ("prID") as an ARRAY ref while "strict refs" in use at ./Saveregina.pl line 165.

si j'accede a mon tableau de la maniere suivante: prID[$k], j'obtiens cette erreur

syntax error at ./Saveregina.pl line 156, near "prID["

peut etre ke c erreurs viennent de l'initialisation de mon tableau :

Code :

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

1
2
3
4
5
6
7
8
 
for ($i=0;$i<=10;$i++) {    #la c pour le fun....
    $prID[$i]=0;
}
 
for($k = 1; $k< $nb; $k++){
$prID[$k] = $produktID->[$k][0];
}

bref je cale pas.. Si vous pouvez m'expliker comment ca marche, ce serait magnifik parce ke mon feeling semble pas trop fonctionner avec le perl

**drosof** · 01/07/2003, 11h01

juste un ptit exemple pour mon erreur avec le "0"

Code :

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

1
2
3
4
5
6
7
8
9
10
 
for($i=0; $i<$nbProdukt; $i++)
{
    $count[$i][0] = 0;
    $count[$i][1] = 0;
    $count[$i][2] = 0;
    $count[$i][3] = 0;
    $count[$i][4] = 0;
    $count[$i][5] = $ProdukteName->[$i][1];
}

et la g l'erreur suivante :

Can't use string ("0") as an ARRAY ref while "strict refs" in use at ./Saveregina.pl line 128.

**Arioch** · 01/07/2003, 11h04

essaie d'accéder à un élément de ton tableau via $prID[$k] et non prID[$k]

En Perl, toute variable doit être préfixée de son type : $ pour scalaire, @ pour liste/tableau et % pour hash/tableau associatif

pour Perl, prID[$k] n'étant pas préfixé, ça ne lui absolument rien, voilà pourquoi il beugle sur ton écran

**drosof** · 01/07/2003, 11h11

ouais ca c bien vu... la honte mdr
mais par contre ca resout pas encore mon probleme avec

Code :

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

1
2
 
Can't use string ("0") as an ARRAY ref while "strict refs" in use at ./Saveregina.pl line 128.

en fait c ptet parce ke mon tableau est initialise avec fetchall_arrayref();
en fait je fais tout ca

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
 
 #ProduktNameOhneBC 
my $Produkte = $dbh->prepare("SELECT count(*), Name_Gruppiert_ohne_BC, Produkt_ID from produkte_gruppieren group by Name_Gruppiert_ohne_BC");
$Produkte->execute();
my $ProdukteName = $Produkte->fetchall_arrayref();
my $nbProdukt = $Produkte->rows();
 
my @count = $ProdukteName;
for($i=0; $i<$nbProdukt; $i++)
{
    $count[$i][0] = 0;
    $count[$i][1] = 0;
    $count[$i][2] = 0;
    $count[$i][3] = 0;
    $count[$i][4] = 0;
    $count[$i][5] = $ProdukteName->[$i][1];
}

et j'obtiens l'erreur si dessus..
Merci pour le $, g vraiment pas l'habitude faire du Perl mdr

**Arioch** · 01/07/2003, 11h17

quelle est la ligne n° 128 dans ton script ? Ca m'aiderait pour savoir à quel endroit le script refuse de compiler

**drosof** · 01/07/2003, 11h19

Code :

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

$count[$i][5] = $ProdukteName->[$i][1];

c celle la... desole j'avais oublie de le preciser

**Arioch** · 01/07/2003, 11h23

Envoyé par drosof

Code :

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

$count[$i][5] = $ProdukteName->[$i][1];

c celle la... desole j'avais oublie de le preciser

Je m'en doutais un peu mais je voulais être sûr.

M'est avis qu'il y a un problème avec une ligne plus haut dans ton script, la ligne # 117 si je sais encore compter :

Code :

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

my $ProdukteName = $Produkte->fetchall_arrayref();

Soit la méthode fetchall_arrayref est mal employée ou bien qu'elle retourne quelque chose d'inattendu.

Essaie ceci pour voir (j'espère que ma syntaxe est bonne) :

Code :

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

1
2
3
4
5
6
eval { my $ProdukteName = $Produkte->fetchall_arrayref(); }
if ($@)
{
    print "eval de \$ProdukteName a retourné une erreur : $@\n";
    exit();
}

peut être y a-t-il un ; après l'accolade fermante du eval, je suis pas sûr

**drosof** · 01/07/2003, 11h28

alors pour l'instant avec ou sans ";" j'obtiens ca

syntax error at ./Saveregina.pl line 132, near ")
{"
syntax error at ./Saveregina.pl line 135, near "}"

132 -> accolade apres if(@)
135 -> accolade fermante

**Arioch** · 01/07/2003, 11h30

laisse béton, je m'a gourré pour l'emplacement du ;, la ligne exacte à mettre dans ton script pour le eval est :

Code :

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

eval { my $ProdukteName = $Produkte->fetchall_arrayref(); } ;

faut juste que tu rajoute le ; à la fin, j'aurais dû regarder perlfunc avant de te répondre

**drosof** · 01/07/2003, 11h41

jpas de soucis mdr... sans toi je serais trop trop mal barre alors m avec qq erreurs, je prends...

alors bon c marrant parce que ca fait pas d'erreur...
g le code suivant :

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
 
my $Produkte = $dbh->prepare("SELECT count(*), Name_Gruppiert_ohne_BC, Produkt_ID from produkte_gruppieren group by Name_Gruppiert_ohne_BC");
$Produkte->execute();
my $ProdukteName;
my $nbProdukt = $Produkte->rows();
 
#my @count = $ProdukteName;
#for($i=0; $i<$nbProdukt; $i++)
#{
#   $count[$i][0] = 0;
#   $count[$i][1] = 0;
#   $count[$i][2] = 0;
#   $count[$i][3] = 0;
#   $count[$i][4] = 0;
#   $count[$i][5] = $ProdukteName->[$i][1];
#}  
eval { $ProdukteName = $Produkte->fetchall_arrayref(); };
if ($@)
{
    print "eval de \$ProdukteName a retourné une erreur : $@\n";
    exit();
}