Bonjour a tous,

Je débute en Perl, et cherche a faire les choses suivantes. J'ai bien regardé les tutoriaux et cherché un peu partout sur google, mais si j'ai trouvé des informations je n'ai malheureusement pas réussi a les coller bout a bout ... j'espére donc que je pourrais trouver de l'aide ici

Je m'explique: j'ai une chaine de caractére (en l'occurence un nom de fichier) sur lequel je cherche a remplacer tous ses caractéres spéciaux ainsi qu'a remplacer ses espaces avec des underscore, mais en conservant son extension.

Pour l'heure j'ai essayé les chaines suivantes, avec les résultats indiqués:
-
Code : Sélectionner tout - Visualiser dans une fenêtre à part
$_ =~ s/[^\w]+_*//g;
=> marche bien mais je perds mes espaces ainsi que le point de l'extension, donc trop radical
-
Code : Sélectionner tout - Visualiser dans une fenêtre à part
$_ = $oStripAccents->strip($_);
=> pour enlever les accents mais j'obtiens des erreurs a la compilation (Can't call method "strip" on an undefined value at C:\PERL\test.pl line 23.)
-
Code : Sélectionner tout - Visualiser dans une fenêtre à part
$_ =~ s/\s/_/g;
=> me met bien des underscores a la place des espaces mais je ne réussis pas a le combiner avec un moyen d'enlever également les accents.

Si une bonne ame pouvait donc bien m'éclaire sur ce qui ne va pas ?

Merci d'avance !

Cdlt,

Jtybt