Comment reconnaître les chemins de fichiers Windows dans une chaîne en Perl?

Question

J'ai fait de la recherche d'une regex qui peut être utilisée en règle générale pour interdire aux utilisateurs d'entrer des chemins de fichiers Windows sans échapper le "\". Jusqu'à présent, j'ai trouvé cette expression

[^ \\] *

$

Cependant, cela ne fonctionne pas pour ce qui suit:

C: test \\ Program Files \\

Par échec, je veux dire qu'il ne valide pas cette chaîne. Toute aide serait grandement appréciée, et oui, je suis obligé d'utiliser regex.

Answer 1

^(\\\\|[^\\])*$ 

correspondront chaînes qui ne contiennent que des caractères ou se sont échappés \\ non caractères. (Pour un peu de performances, vous pouvez l'améliorer à: ^(?:\\\\|[^\\]+)*$)

En Perl:

if ($subject =~ m/^(?:\\\\|[^\\]+)*$/) { 
    # Successful match 
} else { 
    # Match attempt failed 
} 

Cela correspond

C:\\Program Files\\test 
abcd 
h983475iuh 87435v z 87tr8v74 
\\\\\\\\\\ 

et ne parviennent

C:\Program Files\test 
\ 
\\\ 

etc.

Answer 2

Si vous avez fait ce tour sur moi en tant qu'utilisateur de votre application, je serais plutôt ennuyé. Pourquoi pas au lieu de forcer l'utilisateur à fournir des données dans un certain format, vous reformater les données après que l'utilisateur l'a entré? Jetez un oeil à la fonction quotemeta (perldoc -f quotemeta), qui va automatiquement échapper à toutes les barres obliques inverses (et autres caractères potentiellement spéciaux) pour vous.