Bonjour,
Je n'arrive pas a resoudre cette erreur :
voici mon code :
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.
Avec ce fichier en entrée :
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;
Avez vous une idé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"
Depuis qui j'ai rajouté le "join" ligne 26 j'ai ce problème ! et je ne comprend pas pourquoi !
Merci d'avance
Partager