Discussion :

[DonkeyMaster]

Bonjour,

Je suis sous Windows et j'ai une liste de noms de fichiers relatifs (un par ligne).

J'ai besoin d'une expression régulière qui inclut tous les fichiers qui sont à la racine (c'est-à-dire, qui ne sont pas dans un sous-répertoire).

Je voulais pour cela écrire une expression régulière qui signifie "tout ce qui n'a pas un \ (antislash)", mais je n'y arrive pas.

Est-ce que quelqu'un pourrait me donner l'expression régulière qui fera de la magie?

Cordialement
DonkeyMaster

Exemple:

Code :

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

1
2
3
fichier1.txt
fichier3.exe
DATA\fichier2.bin

Il faudrait inclure les fichiers 1 et 3 et exclure le fichier 2

[mamax29]

simple....

Code :

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

1
2
3
4
if ( $nomfichier =! m/^.*\//)
{
    print $nomfichier."\n";
}

Explication:

Code :

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

m/^.*\//

reconnaitra tous les noms qui commencent par un nombre indéfini de caractère suivi du caractère "/"

[djibril]

pas besoin d'utiliser les regex dans ce cas. Etant donné que tu lis des nom de fichiers, utilise File::Basename;

Code :

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

1
2
3
4
5
use File::Basename;
 
if( dirname($fichier) ne '.' ) {
  # je le prend
}

[DonkeyMaster]

Merci pour vos réponses.

En fait, j'ai besoin de cette expression régulière non pour écrire du perl, mais pour l'utiliser dans un autre outil qui accepte les expressions régulières (c'est pour le .hgignore de Mercurial).

J'ai trouvé sur Stack Overflow qu'à cause d'une particularité de Mercurial, ce que je demande n'est pas possible. Je dois me contenter de

Code :

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

^[^/]*\..*$

[djibril]

Dans ce cas, cette regex suffit : ^[^/\\]+$