Discussion :

[linou]

Bonjour,

J'ai des codes qui peuvent etre de cette forme :
T00221-001->M1
T00221-005-<J
T00541-004-*
xsxsxsx-003-
T00648-004-#005-<A
scfed-007-006-
abc1245-004->S005-+A512-#452-*

Il faut que j'arrive a récupérer la partie ayant les 3 derniers chiffres (ceux en gras).

Comment sont formés ces codes :
- une ou plusieurs lettres/chiffres (longueur variable)
- un tiret
- 3 chiffres (ceux q je veus recuperer s'il n'y en a pas plus loin par 3
- un tiret
- zero ou un symbole qui peut etre <, >, +, * ou # (peut etre absent)
- zero ou plusieurs lettres
Le code peut s'arreter la ou bien continuer en gardant la base précedente ms en rajoutant les 4 dernieres etapes :
- 3 chiffres (ceux q je veus recuperer s'il n'y en a pas plus loin par 3
- un tiret
- zero ou un symbole qui peut etre <, >, +, * ou # (peut etre absent)
- zero ou plusieurs lettres
Et cela peut ce reproduire plusieurs fois.

Ceux que je veux récupérer, cest la derniere fois qu'il y a les 3 chiffres.

Voila la regexp que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
$gene = 'T00648-004-#[b]005[/b]-<A';
if ($gene =~ /(.*)(-)([0-9]{3})([a-z]?)(-)([<->*\#])?)(.*)/)
{
   print "ok";
}
else
{
   print "no ok";
}
print "1 : $1<br>2 : $2<br>3 : $3<br>4 : $4<br>5 : $5<br>6 : $6<br>7 : $7";

Mais j'ai ce message :

/(.*)(-)([0-9]{3})([a-z]?)(-)([<->*\#])?)(.*)/: unmatched () in regexp at /Projects/aaa/fiche.cgi line 2266.
[Fri Jan 27 09:32:48 2006] [error] [client xxx.xxx.xx.x] Premature end of script headers: /aaa/fiche.cgi

Par contre, ce que je ne comprend pas, cest que normalement, jai un formulaire, et ce n'est qu'a la soumission de ce formulaire que j'utitlse ma regexp, donc au 1er affichage, cest sur, ma regexp ne peut pas fonctionner puisque la variable $gene n'a pas encore de valeur...

Est ce que quelqu'un peut m'aider?

[Manuxme]

Bonjour,

Tu as un petit problème de parenthèse.
Remplace ton code par celui ci corrigé :

Code :

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

1
2
 
if ($gene =~ m/(.*)(-)([0-9]{3})([a-z]?)(-)([<->*\#])?(.*)/  )

La parenthèse fermante juste avant le second ? etait de trop.

Voili, voilou,

Manuxme.

[linou]

Merci, ca marche!

Par contre, pourquoi est ce que tu mets le 'm'? ca marche bien sans?

[Manuxme]

le "m" est pour traiter plusieur ligne, mais dans ton cas, tu n'en as a peut être pas besoin.
J'ai le réflexe de le mettre en permance.

Manuxme.

[linou]

ok! merci

[2Eurocents]

le "m" est pour traiter plusieur ligne, mais dans ton cas, tu n'en as a peut être pas besoin.
J'ai le réflexe de le mettre en permance.

Code :

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

if ($gene =~ m/(.*)(-)([0-9]{3})([a-z]?)(-)([<->*\#])?(.*)/  )

Non, le 'm' initial est l'opération effectuée par l'opérateur de mise en relation d'expression rationnelle "=~".

'm' est l'opération retenue : match (ou correspondance).

D'autres opérations sont possibles, comme "s", pour une substitution, ou "tr" pour une "traduction" ou translittération.

Il se trouve que l'opération "m" est aussi l'opération par défaut de l'opérateur =~. Cela fonctionne donc très bien sans.

Cependant, c'est toujours une bonne habitude de ne pas se baser sur les opérations par défaut et de préciser ce que l'on veut faire. Cela peut rendre les codes plus lisibles et plus facile à maintenir.


Pour un traitement multilignes, ce n'est pas un indicateur en début d'expression rationnelle, mais un paramètre ajouté après la fermeture de celle-ci qu'il faudra utiliser (et le paramètre pour les lignes multiples est aussi un "m", ce qui donne une expression de la forme $var =~ m/motif/m ).

[linou]

Je savais que le s permettait la subtitution, et le m pr match, mais justement, je ne voyais pas la diffenrece entre =~ et =~ m/.../ et en fait il ny en a pas!

Quant au "tr", je ne savais pas q ca existait

Merci 2Eurocents pour cet eclaircissment

[Manuxme]

Encore Oupsss...

J'en suis à 2 today....
Cela fait un moment que j'utilise des fonctions instinctivement, sans plus trop connaître la définition exact.

Je ferais attention a mes réponses pour les prochaines fois.
Désolé linou de t'avoir induit en erreur.

Manuxme.