Une question (de base ?) avec if

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

si j'écris

Code:

---

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

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

Code:

---

@contenu

---

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

Citation:

---

Envoyé par djibril

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

Code:

---

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

---

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

Pour nous aider à t'aider, place ton code entre des balises CODE (icône http://www.developpez.net/forums/images/editor/code.gif).

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:

---

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

---

Citation:

---

Envoyé par Philou67430

Pour nous aider à t'aider, place ton code entre des balises CODE (icône http://www.developpez.net/forums/images/editor/code.gif).

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:

---

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

---

---

Merci beaucoup !!! Super !!!