Une erreur de "uninitialized value in concatenation" que je ne comprends pas.

Version imprimable

Bonjour,

Je souhaite récupérer des valeurs dans un fichier texte séparées par le séparateur ":".
exemple du fichier :

Code:

1
2
3
 
#MDP123:10.70.138.230
#MDP456:10.70.135.224

Et j'obtiens ce message d'erreur :

Code:

1
2
3
4
5
6
7
8
9
 
GLOB(0x183f08c)GLOB(0x183f08c)Champ0 = [GLOB(0x183f08c)]
Use of uninitialized value in concatenation (.) or string at gestippass.pl line 19, <$IPPASS> line 1.
Champ1 = []
----------
GLOB(0x183f08c)GLOB(0x183f08c)Champ0 = [GLOB(0x183f08c)]
Use of uninitialized value in concatenation (.) or string at gestippass.pl line 19, <$IPPASS> line 2.
Champ1 = []
----------

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
 
#!..\..\perl\bin\perl.exe
use strict;
use warnings;
use utf8;
print "\n";
my $IPHMCPASS="IP_HMCPASS2.txt";
open (my $IPPASS, "<", $IPHMCPASS) or die print ("Le fichier $IPHMCPASS est introuvable, Erreur : $!\n");
			while (<$IPPASS>) {
			print $IPPASS;
# my $chaine = 'abc123:10.70.138.230#abc1234:10.70.135.224'; 
my @lignes = split (/\#/,$IPPASS);
foreach my $lig (@lignes)
{ 
print $lig;
my @champs = split (/:/,$lig); 
if ($champs[0]) 
{ 
print "Champ0 = [".$champs[0]."]\n"; 
print "Champ1 = [".$champs[1]."]\n"; 
} 
else 
{ 
print "Y a une erreur !\n"; 
} 
print "----------\n"; 
} 
}

Et je comprends pas pourquoi j'obtiens ce résultat.
Pourriez vous m'éclairer un peu ?
Merci d'avance.

Ps : je suis débutant en Perl :)

Premier correction :
L'idée étant de récupérer la premier ligne séparateur "#"
Puis de traiter les colonnes avec ":"
Mais ça change rien :(

28/01/2011, 15h10
PadawanInPerl

HEllo,

je suis débutant également...donc ne prend pas pour argent content ce que je te dit... :aie:

Mais il me semble que tu fais 2 splits donc du coup au deuxieme, tu n'as rien dans tes champs et je pense que c'est pour cela que tu as ces messages glob..initialized...
28/01/2011, 15h12
venturic

Arf oui, j'avais fais cette modif avant hier et j'ai pas pensé à ça merci.
Je vais modif un peu et voir ce que cela donne.

Merci à toi
28/01/2011, 15h20
venturic

J'ai fais des changement (aussi sur le post initial)
Mais ça ne change rien. :(
28/01/2011, 15h21
PadawanInPerl

Peux-tu remettre ton nouveau code ?

Si ta ligne ressemble à

Citation:

:MDP123:10.70.138.230

Ton champ 0 n'aura rien
Le champ 1 MDP123
et le champ 3 10.70.138.230

Donc le premier : est à supprimer ou bien, il ne faudra pas en tenir compte dans le code perl.

De plus, tu mélanges les descripteurs de fichier et le contenu d'une ligne. Voici ton code mis au propre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
 
my $IPHMCPASS = 'IP_HMCPASS2.txt';
open my $FH, '<', $IPHMCPASS or die "Le fichier $IPHMCPASS est introuvable, Erreur : $!\n";
while ( my $ligne = <$FH> ) {
    chomp $ligne;
    print "Ma ligne => $ligne\n";
 
    # my $chaine = 'abc123:10.70.138.230#abc1234:10.70.135.224';
    my ( $col0, $col1, $col2 ) = split /:/, $ligne;
    if ( defined $col1 ) {
      print "Champ0 = [$col1]\n";
      print "Champ1 = [$col2]\n";
    }
    else {
      print "Y a une erreur !\n";
    }
}
close $FH or die "Impossible de fermer $IPHMCPASS : $!\n";

Super merci !

Faut juste corriger ça :
Code:

1 2 open my $FH, '<', $IPHMCPASS ) or die "Le fichier $IPHMCPASS est introuvable, Erreur : $!\n";
En :
Code:

1 2 open my $FH, '<', $IPHMCPASS or die "Le fichier $IPHMCPASS est introuvable, Erreur : $!\n";
Enfin comme ça, cela fonctionne... :D
Merci à vous deux.

28/01/2011, 15h36
djibril

J'ai écrit le code rapidement sans faire de tests ;)
28/01/2011, 15h49
venturic

Je me doute, y pas de souci. C'était au cas ou pour d'autres ^^