26 novembre 2007

Valider le format du nom d'un fichier en PERL

Comment être sûr que le nom d'un fichier saisi par l'utilisateur est correct en PERL ?
Si comme moi vous cherchez la facilité et voulez utiliser une expression régulière sûre et efficace, ci-dessous le bout de code à utiliser :

unless($fileName =~ m#([\w.-]+)$#)
{
  print "Filename '$fileName' incorrect \n";
  exit;
}

Posté par fatihaelh à 11:35 - PERL - Commentaires [0] - Permalien [#]

Commentaires

Poster un commentaire