Discussion :

[Jasmine80]

je voudrais n'afficher que les éléments de la liste contenant une majuscule sans utiliser un foreach suivi d'un if.

Code :

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

print (join "\n", @{[@Lonly =~ /[A-Z]/g]};

... mais ça ne fonctionne pas ... comment faire?


Merci

[Dimitry.e]

grep ?

[Jasmine80]

oui ça doit être grep

Code :

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

print (join "\n", @{[grep {/[A-Z]/} @Lonly]} );

... pour récupérer une liste, il me faut un contexte de liste, mais ça ne va pas. Je vais explorer cette piste, merci.

[Philou67430]

Code :

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

print join "\n", grep /[A-Z]/, @Lonly;

tout simplement.

J'aurais même tendance à dire que ce que tu veux, c'est plutôt :

Code :

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

1
2
use 5.10.0;
say foreach grep /A-Z/, @Lonly;

(à savoir que la dernière ligne aura aussi un \n).

[Jasmine80]

Merci ... c'est en effet plus simple que ce que je ne pensais.

Je m'y perds un peu. Tu m'avais aidé lors d'un précédent problème en écrivant ceci :

Code :

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

my $s = join "", @{[substr($sequence, 0, $X-1) =~ /([ATCG])/g]}[-5..-1], @{[substr($sequence, $X-1) =~ /([ATCG])/g]}[0 .. 5];

L’énoncé étant :

A partir du Xième caractère de $sequence X = 30
Récupérer N nucléotides de part et d'autre N = 5

Tu passes par un substring pour récupérer les caractères de part et d'autre. Sur cette liste, on utilise une expression régulière afin de ne récupérer que les ATCG.

En quoi ce problème est-il différent? Pourquoi cela ne fonctionne-t-il pas? C'est pourtant bien une regexp sur une liste ...

Code :

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

print (join "\n", @{[@Lonly =~ /[A-Z]/g]};

[Philou67430]

Parcequ'un substring (obtenu avec substr) est un scalaire, pas une table de scalaire, tout simplement.
C'est comme si tu avais écrit :

Code :

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

1
2
3
my $start = substr($sequence, 0, $X-1);
my $end = substr($sequence, $X-1);
my $s = join "", @{[$start =~ /([ATCG])/g]}[-5..-1], @{[$end =~ /([ATCG])/g]}[0 .. 5];