[Perl] Besoin d'un ti coup de pouce pour une regexp

Besoin d'un ti coup de pouce pour une regexp [Perl] - Perl - Programmation

Marsh Posté le 28-04-2004 à 13:57:04    

je dois vérifier que le nom de fichier/dossier est /bromont/urgence ou à l'intérieur de celui ci
 
donc:
 


/bromont/urgence [#2aff00]ok[/#2aff00]
/bromont/urgence/ [#2aff00]ok[/#2aff00]
/bromont/urgence/toto.txt [#2aff00]ok[/#2aff00]
/bromont/urgence2 [#f0000e]pas ok[/#f0000e]


 
ca devrait donner un truc comme ca
 

Code :
  1. /^\/bromont\/urgence/


 
mais ya un si y'a un / après urgence, c'est ok. Par contre, si yen a pas, faut que ca soit la string exact
 
présentement je le fais en 2 checks
 

Code :
  1. $file->name eq "/bromont/urgence" || $file->name =~ m/\/bromont\/urgence\//


 
mais j'aimerais bien le faire en 1 regexp.
 
merci

Reply

Marsh Posté le 28-04-2004 à 13:57:04   

Reply

Marsh Posté le 28-04-2004 à 14:00:00    

pas vérifiée:

Code :
  1. /^\/bromont\/urgence($|\/)/

Reply

Marsh Posté le 28-04-2004 à 14:00:43    

anapajari a écrit :

pas vérifiée:

Code :
  1. /^\/bromont\/urgence($|\/)/




 
merci je test

Reply

Marsh Posté le 28-04-2004 à 14:02:18    

semble fonctionner à merveille
 
merci

Reply

Marsh Posté le 28-04-2004 à 14:06:49    

my pleasure

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed