Le jeudi 19 avril 2007 11:06, Cédric LE BRIS a écrit : > Bonjour, je cherche des connaisseurs shell:) [...] s/shell/perl/
> rename 's/[éèêë]/e/g' "$1" > rename 's/[ÈÉÊË]/E/g' "$1" > rename 's/[àáâãäå]/a/g' "$1" > rename 's/[ÀÁÂÃÄÅ]/A/g' "$1" > rename 's/[ïîìí]/a/g' "$1" > rename 's/[ÌÍÏÎ]/I/g' "$1" > rename 's/[òóôõö]/o/g' "$1" > rename 's/[ÒÓÔÕÖ]/O/g' "$1" > rename 's/[ùúûü]/u/g' "$1" > rename 's/[ÙÚÛÜ]/U/g' "$1" > rename 's/[$!?µ£ %]/_/g' "$1" > Si qq a une expression plus propre ;) > Merci tr/èêëÈÉÊËàáâãäåÀÁÂÃÄÅïîìíÌÍÏÎòóôõöùúûüÙÚÛÜ$!?µ£ %/eeeeEEEEaaaaaaAAAAAAiiiiIIIIooooouuuuUUUU_______/ c.f. : http://perldoc.perl.org/perlop.html#tr/SEARCHLIST/REPLACEMENTLIST/cds-tr-y-transliterate-/c-/d-/s sinon mais je suis pas sur : rename ' s/[=a=]/a/g; s/[=A=]/A/g; s/[=e=]/e/g; s/[=E=]/E/g; ... ' "$1" Cordialement, -- Eric DÉCORNOD Ingénieur d'Études SCICS - Faculté des Sciences Université Henri Poincaré