PERL Split

A vrai dire je ne suis pas sur de bien voir ce que tu veux récupérer exactement :
Pour la ligne d'exemple que tu as donné, tu pourrais me donner un exemple de ce que tu veux avoir dans ton tableau s'il te plait?

Merci d'avance

Ce n'est pas faisable directement par un split, étant donné qu'il consomme forcément le séparateur qu'on utilise.
Il faudrait soit modifier l'expression avant de la passer au split (par exemple rajouter d'autres caractères servant de séparateurs autout des blocs entre ''), soit ne pas utiliser de split du tout et procéder autrement.

Je regarde vite fait si je trouve quelque chose de simple.

Tu peux par exemple essayer quelque chose comme ça :

$tabFichier[$_] =~ s/('.*?')/\n$1\n/g;
@tab = split (/\n/,$tabFichier[$_]);

Après il faut juste être sûr que tu n'auras jamais de \n autre que ceux ajoutés en séparateur.

Et si j'ajoute une commande qui supprime tous les /n avant de faire le split, ca devrait marcher, non?

Avant l'expression régulière plutot, comme ça effectivement il n'y aura pas de risque de \n supplémentaire.

Sinon si tu veux absolument separer les ) ] } à la fin, tu peux essayer ça aussi :

$chaine =~ s/\s*(=>\s*{|=>\s*\[|=>\s*\(|,|\)|\]|\})\s*/\n$1\n/g;
@tab = split (/\n\n|\n/,$chaine);

Mais c'est moche à lire ^^