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