grep et récupération d'une sous séquence

Code:

---

@files = grep{m/_([ATCG]+_[ATCG]+)_/} @files;

---

J'aimerais savoir comment ne garder dans @files que la partie de l'expression entre parenthèses?



Dans Perldoc au sujet de la fonction grep, il est mis

Citation:

---

Note that $_ is an alias to the list value, so it can be used to modify the elements of the LIST. While this is useful and supported, it can cause bizarre results if the elements of LIST are not variables. Similarly, grep returns aliases into the original list, much as a for loop's index variable aliases the list elements. That is, modifying an element of a list returned by grep (for example, in a foreach , map or another grep) actually modifies the element in the original list. This is usually something to be avoided when writing clear code.

---

Les éléments de ma liste sont des noms de fichiers récupérés avec readdir. Sont-ils considérés comme des variables?
Donc, il faudrait que j'imbrique un autre grep, un for, un map ou un foreach au premier grep renvoyant les alias de la liste originale, ce qui est apparemment à éviter. Vaut-il mieux faire un for(my $i....){ if(/expreg/) et puis remplacer la valeur $file[$i] par la sous-séquence récupérée via l' expression régulière?


Merci pour votre aide,

J'ai trouvé une façon plus simple de procéder via le map (et j'ai décidé de supprimer l'underscore central).

Code:

---

map{$_ =~ s/\d+_([ATCG]+)_([ATCG]+)_\d+\.fsa/$1$2/}@files;

---

Néanmoins, j'aimerais savoir comment aurais-je pu faire via le grep, si j'avais eu des noms de fichiers à supprimer de la liste.

Merci,

Un truc du genre :

Code:

---

@files = grep{if(m/_([ATCG]+_[ATCG]+)_/){$_="$1$2";1}{0}} @files;

---

Mais je ne recommande vraiment pas, en fait je suis plutôt de l'avis que dès lors qu'il y a un effet de bord significatif dans un grep() ou un map(), on passe à for()... Dans un code réel, l'important est d'être le plus lisible possible, pas le plus court ou astucieux.

Code:

---

1 2 3 4

my @files_mod; for (@files) { push @files_mod, "$1$2" if m/_([ATCG]+_[ATCG]+)_/; }

---

--
Jedaï

Citation:

---

Envoyé par Jedai

Mais je ne recommande vraiment pas, en fait je suis plutôt de l'avis que dès lors qu'il y a un effet de bord significatif dans un grep() ou un map(), on passe à for()... Dans un code réel, l'important est d'être le plus lisible possible, pas le plus court ou astucieux.

---

D'accord, je ne l'utiliserai pas. Mais par curiosité à quoi sert le 1 et le {0} de {$_="$1$2";1}{0}?
Comment savoir si on aura un effet de bord avec grep ou map? Ne vaudrait-il pas mieux dans ce cas, toujours utiliser un for par prudence? Quels avantages pourraient avoir le grep et map excepté leur concision?

Merci beaucoup pour tes explications.

Citation:

---

Envoyé par Jasmine80

D'accord, je ne l'utiliserai pas. Mais par curiosité à quoi sert le 1 et le {0} de {$_="$1$2";1}{0}?

---

Le 1 et le 0 sont les valeurs vraies et fausse qui vont déterminer si grep() va conserver l'élément ou l'éliminer.

Citation:

---

Envoyé par Jasmine80

Comment savoir si on aura un effet de bord avec grep ou map?

---

Généralement c'est toi qui écrit le programme donc tu sais si ton grep ou ton map a des effets de bords, c'est à dire si l'expression passée en argument modifie quelque chose au lieu de simplement calculer si oui ou non on conserve l'élément ou la valeur map()pée.
Un exemple flagrant d'un map() avec effet de bord est un map() dans un contexte vide (comme le tien), puisque ce map() serait complètement inutile s'il ne faisait pas d'effet de bord.

Citation:

---

Envoyé par Jasmine80

Ne vaudrait-il pas mieux dans ce cas, toujours utiliser un for par prudence?

---

Ce n'est pas une question de prudence, c'est une question de lisibilité... Il n'y a rien de dangereux en soi dans un effet de bord dans un grep() ou map(), Perl n'est pas un langage fonctionnel pur donc il n'y a pas de risque que l'optimiseur fasse des bétises parce qu'il a assumé qu'il n'y a pas d'effet de bord.

Citation:

---

Envoyé par Jasmine80

Quels avantages pourraient avoir le grep et map excepté leur concision?

---

Leur clarté, quand on les utilise bien dans leur rôle désigné : map() transforme une liste en une autre élément par élément en laissant la liste initiale inchangée, grep() est un filtre qui ne laisse passer que les éléments d'une liste qui vérifie un certain critère.

En dehors de ces rôles, il devient à la fois plus hasardeux (le comportement d'aliasing de $_ dans ces fonctions n'est pas du tout évident) et difficilement lisible de les utiliser.

--
Jedaï

Merci pour ces explications, c'est vraiment très clair maintenant.