Discussion :

[oliviernouhi]

Bonjour,

Je n'arrive pas a resoudre cette erreur :

Code :

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

Use of uninitialized value $code in join or string at test.pl line 26, <FICHIER> line 8720.

voici mon code :

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
# !usr/bin/perl -w
use strict;
use warnings;
 
my @tab =([0]); # Tableau des TRT INT
my $code;
my $donnee;
my $cpti = 0;
 
open FICHIER, '<', "X7_sans_com.apt" or die("E/S : $!\n");
open ECRIRE,  '>', "parserMenu.sql" or die("Erreur de création de parserMenu.sql");
 
$tab[0][0]="Code";
$tab[0][1]="Donnée";
 
while ( my $ligne = <FICHIER>) {
 
	if ( $ligne =~ m/^\s*String: COD_/){
 
		$cpti++;
		$tab[$cpti][0]="NULL"; # code
		$tab[$cpti][1]="NULL"; # donnée
 
		($code,$donnee) = $ligne =~ m/:\s+(COD_.[^\s]*)\s+=\s+\"(.[^\"]*)\"/;
 
		$tab[$cpti][0] = join "", " b", $code;
		$tab[$cpti][1] = $donnee;
	}
}
 
 
close FICHIER;
close ECRIRE;

Avec ce fichier en entrée :

Code :

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

1
2
3
4
5
6
7
				String: COD_GSTBTC 	= "00130GSTBTC"
				String: COD_GSTTRC 	= "00140GSTTRC"
				String: COD_GSTTRCPRM 	= "00150GSTTRCPRM"
				String: COD_ANCRFR 	= "10105ANCRFR"
				String: COD_CMMCLT 	= "10110CLT"
				String: COD_INTBNC 	= "10115INTBNC"
				String: COD_CMMCTR 	= "10120CTR"

Avez vous une idée ?

Depuis qui j'ai rajouté le "join" ligne 26 j'ai ce problème ! et je ne comprend pas pourquoi !

Merci d'avance

[Philou67430]

Chez moi, pas d'erreur avec ce qui semble être un extrait du fichier d'entrée (mais le fichier de sortie ne contient rien).

L'erreur vient sans doute du fait qu'il n'est pas contrôlé que les variables $code et $donnee sont bien affectées par l'instruction :

Code :

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

($code,$donnee) = $ligne =~ m/:\s+(COD_.[^\s]*)\s+=\s+\"(.[^\"]*)\"/;

Je te conseille donc de tester leur affectation ainsi, et de traiter le cas de leur absence :

Code :

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

1
2
3
4
5
6
if (($code,$donnee) = $ligne =~ m/:\s+(COD_.[^\s]*)\s+=\s+\"(.[^\"]*)\"/) {
  # ...
}
else {
  # ...
}

[oliviernouhi]

Oui c'était un extrait, juste pour montrer l'erreur mais effectivement en sortie il n'y a rien ! comme mon code c'était aussi un extrait.

Effectivement, en rajoutant la condition if pour test l'affectation je n'ai plus d'erreur

Merci Philou67430