[perl] map map map

Bonjour à tous,
Voilà j'ai déjà posé une question sur la fonction map, j'ai relu les réponses, j'ai aussi lu la faq sur la fonction map mais je ne parviens toujours pas à faire ce que je veux:

Je voudrais simplement mettre un fichier dont cque ligne contient des champs séparés par ';' dan un tableau à deux dimensions !!

j'ai tenté cette qolution là mais en vain:

Code:

---

1 2 3 4 5 6

$file='./compte.csv'; open(fic,$file) or die "pb ouvertur $file $! \n"; @tab=<fic>; close(fic); @All=map({@tmp=split(/;/,$_);}@tab);

---

Sans avoir la solution, car pour le coups j'aimerais y arriver par moi même, pouvez vous me donner une explication un coups de pouce ou une information qui me permettrait de comprendre mon erreur et surtout de mieux comprendre map !!

Meric pour vos réponses.

Tableau à deux dimensions ? Pourquoi ne pas utiliser un hash ? :o

Bonjour

Je ne vois pas l'intêret du tableau temporaire @tmp !!!

De plus, c'est une erreur de frappe pour le forum, car il manque un espace entre le bloc {} et @tab dans ta fonction map :)

Sinon map fonctionne de cette manière :

Code:

---

1 2	map expression (ou bloc) liste

---

pour chaque élément de liste, il évalue expression (ou bloc), et renvoi la valeur de l'expression (ou du bloc).
Exemple :

Code:

---

1 2 3

@tab = ("un;deux","trois;quatre;cinq","six"); @all = map {split /;/,$_} @tab;

---

@all contient (un,deux,trois,quatre,cinq,six).

A+
Rv

Citation:

---

Envoyé par Yux

Tableau à deux dimensions ? Pourquoi ne pas utiliser un hash ? :o

---

Parce que !

C'est son choix, on peut l'aider à l'assumer, non ?

Citation:

---

Envoyé par LE NEINDRE

Code:

---

1 2 3 4 5 6

$file='./compte.csv'; open(fic,$file) or die "pb ouvertur $file $! \n"; @tab=<fic>; close(fic); @All=map({@tmp=split(/;/,$_);}@tab);

---

Sans avoir la solution, car pour le coups j'aimerais y arriver par moi même, pouvez vous me donner une explication un coups de pouce ou une information qui me permettrait de comprendre mon erreur et surtout de mieux comprendre map !!

---

Le fonctionnement de map est extrêmement rudimentaire, finalement :

map parcours le tableau (la liste) fournie en second paramètre et lui applique le bloc de code fourni en premier paramètre.

Pour chaque élément, le bloc le reçoit dans $_.

La valeur renvoyée par le bloc est alors récupérée par map pour constituer la liste de sortie.


Maintenant, pour ce que tu veux construire ... un tableau à deux dimensions, c'est, en fait, une liste uni-dimensionnelle contenant des références à des listes uni-dimensionnelles.

Pour retourner une référence à la liste uni-dimensionnelle retournée par split, il suffit d'entourer cet appel par des crochets [ et ]. Il n'y a donc pas vraiment besoin d'en récupérer le contenu dans un tableau temporaire.

Tu n'est donc pas loin du tout du but ;)

Bonne continuation.

Oui, Strach te donne presque la solution, reste à rajouter un petit élément que 2Eurocents évoque. N'oublie pas de chainer un petit chomp() pour te débarasser des retours à la ligne.

--
Jedaï

Bonjour à tous,

Merci beaucoup, j'ai bien compris.
Ca fonctionne maintenant avec le code:

Code:

---

1 2	@All=map {[split(/;/,$_)];}@tab;

---

Perl, c'est géniaaalll !!!!!

Merci encore, et très bonne journée à vous tous !