Discussion :

[venturic]

Bonjour,

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

Code :

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

1
2
3
 
#MDP123:10.70.138.230
#MDP456:10.70.135.224

Et j'obtiens ce message d'erreur :

Code :

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

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 :

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
 
#!..\..\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

[PadawanInPerl]

HEllo,

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

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...

[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

[venturic]

J'ai fais des changement (aussi sur le post initial)
Mais ça ne change rien.

[PadawanInPerl]

Peux-tu remettre ton nouveau code ?

[djibril]

Si ta ligne ressemble à

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

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
#!/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";

[venturic]

Super merci !

Faut juste corriger ça :

Code :

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

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

En :

Code :

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

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

Enfin comme ça, cela fonctionne...
Merci à vous deux.

[djibril]

J'ai écrit le code rapidement sans faire de tests