Discussion :

[Jasmine80]

Bonjour,

J'ai une série de séquences de lettres composées de majuscules et de minuscules mélangées. J'aimerais que les extrémités qui sont en minuscules soient converties en majuscules mais que les minuscules internes à cette séquence restent bien en minuscule.
... je suppose que ce n'est pas très clair.

Voici le script que j'ai écrit et qui fonctionne mais je me demandais si il n'y avait pas moyen d'améliorer cette façon de faire car je dois traiter une cinquantaine séquences de 5000 lettres.

Code :

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

1
2
3
4
5
my $consensus = 'aaggtgcggctggatyaCCtCCTTTCTAAGgAGCArCACGAAwKCGcyatcg';
if ($consensus =~ /^([a-z]*)([A-Z].*[A-Z])([a-z]*)$/){
    $consensus = uc($1).$2.uc($3);
} 
# consensus vaut maintenant AAGGTGCGGCTGGATYACCtCCTTTCTAAGgAGCArCACGAAwKCGCYATCG

Merci de votre aide,

[CKLN00]

je vois pas mieux XD (j'aurais juste mis les ancres on sais jamais :p)

[Jasmine80]

Je viens de m'en rendre compte et de corriger mon post (pour les ancres), mais merci quand même. Bien que avec les ancres directement suivies ou précédées de parenthèses, je ne suis pas certaines que ces ancres servent à quelque chose.

[CKLN00]

je ne comprend pas pourquoi tu voudrais qu'il y ai un conflit entre les ancres et les () ?

[Jedai]

Un peu meilleur niveau performance probablement :

Code :

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

1
2
$consensus =~ s/^([a-z]+)/uc($1)/e;
$consensus =~ s/([a-z]+)$/uc($1)/e;

--
Jedaï

[Jasmine80]

Un peu meilleur niveau performance probablement :

Oui, je viens de tester cela prend 15 secondes alors que ma façon en prenait 17.
Je suis toujours étonnée de la rapidité avec laquelle Perl traite du texte


Merci à vous deux,