Discussion :

[alainbb]

Bonjour,

Commençant en perl6, paf, je tombe sur un comportement étrange.
Ce code-ci ne fonctionne pas (enfin comme je voudrais)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
!/home/alain/rakudo-star-2016.01/install/bin/perl6
 
sub createObj(Str $line) {
    say  split " ",$line;
    map {say $_}, split " ",$line;
#    return;
}
 
map {createObj($_)}, ("a b","c d");

Il n'exécute que la ligne 4.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
(a b)
(c d)

Si j'inverse la ligne 4 et 5, ou si je rajoute le "return", il fonctionne comme je le désire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
(a b)
a
b
(c d)
c
d

Une idée ?

[Lolo78]

Bonjour,

je pense que ton utilisation de map n'est pas bonne. La principale fonction de map est de renvoyer une liste de valeurs (en fait un type Seq) que l'on peut affecter à un tableau ou utiliser dans un autre opérateur de liste. Ici, tu utilises map sans contexte de retour, ce qui n'est pas bon. Comme la fonction map est paresseuse, je pense qu'elle considère dans ton code qu'elle n'a pas besoin de s'exécuter et donc ne fait rien.

Il vaut mieux utiliser une boucle for.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
sub createObj(Str $line) {
     say $_ for split " ", $line;
}
 
map {createObj($_)}, ("a b","c d");

Ce qui imprime:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
a
b
c
d

Ou alors simplement imposer un contexte de liste obligeant map à remplir un tableau en sortie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
sub createObj(Str $line) {
     my @array = map {say "$_"}, split " ", $line;
}
 
map {createObj($_)}, ("a b","c d");

ce qui imprime la même chose que précédemment. Comme map doit remplir le tableau @array, du coup elle s'exécute vraiment et son effet de bord (l'impression des valeurs) se manifeste. Mais, même si ça permet d'obtenir le résultat que tu recherches, ce n'est pas la bonne manière de faire, une boucle for est bien meilleure.

Le map de la dernière ligne (celle appelant la fonction createObj) est également mal utilisé à mon avis (même si ça ne gêne pas ici), il vaudrait mieux utiliser un for:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
createObj $_ for "a b", "c d";

Ou avec un bloc pointu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
for "a b", "c d" -> $string {
    createObj $string;
}

[alainbb]

Bonjour,

Bien le merci.

J'ai sans doute pris de mauvais habitude, car en perl5, ça fonctionne.

Mais en effet, autant utiliser le "for".
Bon, j'ai bien l'intention de faire quelque chose de mon map, mais comme je commence, je voulais savoir si mon split fonctionnait avant d'aller plus loin, vu qu'il faut faire attention à la nouvelle ponctuation, sigil,...

Bien le merci.

[djibril]

Bonjour,

J'ai renommé le titre de ta discussion pour qu'elle colle mieux au problème.
Il faudrait dire aux développeurs Perl5 dès que l'occasion se présente de bien utiliser la fonction map afin de prendre de bonnes habitudes.

Merci pour vos réponses !