Discussion :

[jtybt]

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

[Lolo78]

Fais-le en plusieurs étapes.

Remplacer les accents par les caractères non-accentué:

Code :

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

$string =~ tr/éèêàâîôùûç/eeeaaiouuc/;

Remplacer les espaces:

Code :

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

1
2
 
$string =~ s/\s/_/g;

Supprimer les autres caractères non alphabétiques:

Code :

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

$string =~ s/[^\w.]//g;

Tu mets les trois lignes ci-dessus (dans cet ordre) dans ton programme et tu devrais avoir à peu près ce que tu cherches.

Pour les accents, ajoute les trémas si besoin.

[Philou67430]

Il existe (au moins) deux modules du CPAN pour le traitement des accents :
- Text::StripAccents
- Text::Unaccent (existe en version pure perl : http://search.cpan.org/~pjacklam/Tex...cent::PurePerl)

[jtybt]

Extra, merci beaucoup Lolo78 !

Si maintenant je souhaite remplacer les caractéres accentués par leur correspondant sans accent (e a la place de é ou è p. ex), ca peut se faire via une expression réguliére ou faut passer par tr/ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïñòóôõöùúûüýÿ/AAAAAACEEEEIIIINOOOOOUUUUYaaaaaaceeeeiiiinooooouuuuyy/; ?

[Lolo78]

Disons que tr/// est beaucoup beaucoup plus rapide qu'une expression régulière. Il serait en outre bien plus difficile de tout faire en une seule expression régulière.