out of memory! -> help

salut tous,

bon voila je n'arrive pas a corriger une erreur qui me vaut un "out of memory!" de la part de perl.
voila le warning qu'il me balance :
Use of uninitialized value in string ne at subpa2xpkprot.pl line 329, <XPKIN> line 732.

cette ligne ce trouve dans une petite fonction :

Code:

---

1 2 3 4 5 6 7 8 9

sub cherche { my($numero,$atome) = @_; $m=0; while($TdT[$m][4] != $numero) { $m++;} while($TdT[$m][3] ne $atome) { $m++;} <--- ICI return($m); }

---

j'ai beau chercher, mes deux string $TdT[$m][3] et $atome ne sont jamais vides....

je precise que @TdT est un tableau de tableau qui stocke un fichier de 100ko, je pense pas que ce soit grand chose pour les pc d'aujoud'hui ?

je precise aussi <XPKIN> est un fichier de 500ko que je traite ligne par ligne.

MERCI d'avance de vos reponses ;)

Citation:

---

Envoyé par Polux100

Code:

---

1 2 3 4 5 6 7 8 9

sub cherche { my($numero,$atome) = @_; $m=0; while($TdT[$m][4] != $numero) { $m++;} while($TdT[$m][3] ne $atome) { $m++;} <--- ICI return($m); }

---

j'ai beau chercher, mes deux string $TdT[$m][3] et $atome ne sont jamais vides....

---

Et si $atome n'est pas dans le tableau......tu vois ce qui arrive ?

--
Jedaï

Citation:

---

Envoyé par Jedai

Et si $atome n'est pas dans le tableau......tu vois ce qui arrive ?

--
Jedaï

---

Trés juste, $m doit enfler jusqu'à occuper toute la place mémoire octroyée à ton processus Perl par ton OS ;)

Citation:

---

Envoyé par Arioch

Trés juste, $m doit enfler jusqu'à occuper toute la place mémoire octroyée à ton processus Perl par ton OS ;)

---

En fait $m ne prend pas trop de place, c'est plutôt le tableau de tableau autovivifié qui éclate la mémoire...

--
Jedaï

:roll:

je me sens idiot ;) j'ai nié l'evidence meme, c'est parceque c'est pas normal du tout que $atome ne soit pas dans le tableau....:?

bref, merci!