Use of uninitialized value

Version imprimable

Bonjour,

Je n'arrive pas a resoudre cette erreur :

Code:

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

voici mon code :

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

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

18/05/2011, 16h58
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:

($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:

1 2 3 4 5 6 if (($code,$donnee) = $ligne =~ m/:\s+(COD_.[^\s]*)\s+=\s+\"(.[^\"]*)\"/) { # ... } else { # ... }
19/05/2011, 09h49
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