Discussion :

[stansoad0108]

Bonjour à tous,

Simple doute, donc simple question sur les regex :
Dans un de mes documents, je retrouve des phrases sous la forme : "Leu/Leu" ou "Pas/Pas" ou "Tir/Tir"..."Xxx/Xxx"

Je ne trouve pas une expression régulière pour les récupérer. Il faudrait dire
que les 2 chaînes de caractères sont identiques, commençant par une majuscule, composées de 3 lettre et séparées par un "/".

Il faudrait completer cette expression : (en faisant en sorte que ces 2 chaines de caractères soient identiques !!)
$S =~ /^[A-Z]{1}[a-z]{2}\/[A-Z]{1}[a-z]{2}$/

Merci pour vos commentaires

[Jedai]

{1} est implicite en l'absence de quantificateur, inutile de le mettre.
Pour le côté "identique", renseigne toi sur les backreferences :

Code :

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

$S =~ m#^([A-Z][a-z]{2})/\1$#

--
Jedaï

[stansoad0108]

Merci pour ta réponse.

Mais cela dit, j'ai remarqué dans ma page html, les informations du type : "Xyz/Xyz"...sont ancrées dans des balises avec pour mise en forme :

Code :

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

1
2
3
4
<td>
 
            Asp/Asp
          </td>

On y retrouve des sauts de lignes et tabulations !! Pouvez vous ainsi m'aider pour créer l'expression régulière pour récupérer cette informations

Idées ???

Code :

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

$s =~ m/^\n\n\t([A-Z]{1}[a-z]{2}\/[A-Z]{1}[a-z]{2})$/

ou

Code :

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

$s =~ m/^\n\n\t([A-Z][a-z]{2})/\1

Merci

[stansoad0108]

Re-bonjour,

Suite à mon dernier message, j'ai réussi à me "débrouiller", cela fonctionne...
Ma console m'iImprime : Leu/Leu......

Cependant la mise en page ne me convient pas :
Dans le code html on avait

Code :

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

1
2
3
4
<td>
 
            Leu/Leu
          </td>

Pour récupérer cette information, j'ai utilisé :

Code :

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

1
2
3
if($flag == 6 &&  ($text =~ /^\s[^0-9]+\/[^0-9]+$/)){
		print "Amino Acid Translation : $text\n";
	}

Et dans ma console, je retouvre :

Code :

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

Amino Acid Translation :                           Leu/Leu

Je ne sais pas comment enlever cet espace.

Merci pour vos commentaires

[stansoad0108]

C'est bon, j'ai trouvé mon erreur...Il suffisait d'ajouter

Code :

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

$text =~ s/[\s]//g;

dans une boucle "if" dans la fonction text_rtn.

Merci de vos aides...