Use of uninitialized value in numeric ne (!=)

Bonjour,

#Test la présence de valeurs indéfinies.
print "Bad value at index $_ in \@start_exon_tries\n" foreach grep !defined $start_exon_tries[$_], 0 .. $#start_exon_tries;

for (my $s = 2; $s < $total + 1; $s ++)
{
if ($start_exon_tries[$s] != $start_exon_tries[$s - 1])
{ ... }
}

L'erreur vient de la condition if.Le programme me retourne l'erreur suivante : Use of uninitialized value in numeric ne (!=).

Un coup de pouce serait le bienvenu.

Merci.

Je ne comprends pas vu qu'à priori, il n'y a pas de valeurs indéfinies dans la liste @start_exon_tries.

Hello,

Un bout de "@start_exon_tries" serait utile ^^

star_exon_tries: 26972 26972 26995 27005 53034 53246 53246 53246 53246 53266 54706 54706 54706 54706 54706 54706 56647 56647 56647 56647 56647 56647 56966 56966 56966 56966 56966 57053 57225 59061 59061 59061 59061 59061 59061 61857 69417 69417 69417 69417 69417 69417 69756 69756 69756 69756 69756 69756 70044 70403 70403 70403 70403 70403 70403 72789 72789 72789 72789 72789 72789 72789 73447 73447 73447 73447 73447 73447 73447 76251 76251 76251 76251 76251 76251 76251 76812 76812 76812 76812 76812 76812 76812 77329 77329 77329 77329 77329 77329 77329 78747 78747 78747 78747 78747 78747 78747 79210 79210 79210 79210 79210 79210 79210

Use of uninitialized value in numeric ne (!=).

Hum un peu dur de voir comme ca ^^

Pour trouver ce qu'il cloche, le mieux serait de tester si $start_exon_tries[$s] et $start_exon_tries[$s - 1] sont defined avant le test et si c'est pas le cas d'imprimer la valeur de $s et de $s -1 et de sortir avec un last

Cela permettra déjà d'y voir plus clair

Il serait intéressant de voir comment est calculé $total et pourquoi la boucle for évolue jusqu'à $total + 1.

Sinon, pour la clareté, merci d'utiliser la balise [code] (icône http://www.developpez.net/forums/images/editor/code.gif).

Une autre façon d'écrire la boucle sans risque de déborder du tableau :

Code:

---

1 2 3

foreach my $s (1 .. $#start_exon_tries) { ... }

---

NOTA : les indices de tableaux commencent à 0 en perl.

Ok Ok, désolé pour la clarté, j'ai pas pensé à mettre les balises pour le code.
Bon j'ai trouvé mon problème, cela vient du fait que $total est plus élevé que l'indice le plus haut de la liste.
En supprimant le +1 à coté de $total, je n'ai plus d'erreur.

Merci

Tu n'as plus d'erreur, mais ton script fait-il bien ce que tu souhaites ? Car je suis surpris de l'indice de départ à 2...