Discussion :

[DUDE007]

Bonjour,
j'ai un problème avec un test sur une valeur de chaîne de caractères :

si j'écris

Code :

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

1
2
3
4
5
6
7
my $test= "toto";
my $carsrc = "l";
if ($test eq $carsrc), mon test se passe bien
 
par contre, si j'écris (@contenu étant une liste)
my $test= "toto";
my $carsrc =$contenu[1]

if ($test eq $carsrc), mon test n'est pas effectué et je récupère le message

"Use of uninitialized value in string eq at decomp.pl line 66"

Merci pour votre aide

[djibril]

Dans le code que tu nous présente, je ne vois pas de

Code :

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

@contenu

Donc on ne sait pas s'il y a quelque chose à l'intérieur.

[DUDE007]

Dans le code que tu nous présente, je ne vois pas de

Code :

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

@contenu

Donc on ne sait pas s'il y a quelque chose à l'intérieur.

Bonjour,

le fichier A-TEST.out contient les deux lignes

#
# t AVD 0

je cherche à détecter le caractère "t" en seconde ligne, seconde place et à afficher "OK" quand je le trouve.

Mon script perl est unini.pl qui contient les lignes :

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
  use strict;
  use warnings;
  use Cwd;
  my $RepCourant = cwd();
  my @nom_fichiers;
 
# Ouverture d'un repertoire
  opendir (my $FhRep, $RepCourant) 
    or die "impossible d'ouvrir le repertoire $RepCourant\n";
 
# Liste nom_fichiers et repertoire sauf (. et ..)
  my @Contrep = grep { /.out/ } readdir($FhRep);
 
  foreach my $nom_fichier ( @Contrep ) {
   open my($fichier), '<', $nom_fichier
     or die "Ce fichier $nom_fichier n'a pu etre ouvert : $!\n";
  my @lignes = <$fichier>;
  foreach my $ligne ( @lignes ) {
  my @Contenu=split(/ /,$ligne);
  print "$Contenu[1] \n";
#  my $test= $Contenu[1];
  if ($Contenu[1] eq "t") 
  {print "OK \n"};
   }
   }

A l'exécution dans une fenêtre de commandes DOS, j'obtiens

Use of uninitialized value in string eq at unini.pl line 22, <$fichier> line 2.
t
OK

merci d'avance pour votre interprétation du fait que dans la ligne 22, "eq" est interprété comme une chaîne non initialisée et non comme comme le comparatif entre deux chaînes.

Cordialement

[Philou67430]

Pour nous aider à t'aider, place ton code entre des balises CODE (icône ).

Ensuite, comme la première ligne de ton fichier d'entrée ne possède qu'un seul champ, le tableau @contenu ne contiendra, pour cette ligne, qu'un élément.
Il est donc normal que lors du test de l'élément d'indice 1, tu rencontres cette erreur.

Écris plutôt ton test de la sorte :

Code :

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

if (@Contenu > 1 && $Contenu[1] eq "t")

[DUDE007]

Pour nous aider à t'aider, place ton code entre des balises CODE (icône ).

Ensuite, comme la première ligne de ton fichier d'entrée ne possède qu'un seul champ, le tableau @contenu ne contiendra, pour cette ligne, qu'un élément.
Il est donc normal que lors du test de l'élément d'indice 1, tu rencontres cette erreur.

Écris plutôt ton test de la sorte :

Code :

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

if (@Contenu > 1 && $Contenu[1] eq "t")

Merci beaucoup !!! Super !!!