remove non letters

Bonjour,

je voudrais supprimer les chiffres de ma liste mais le probleme c'est quand il n'ya pas d'espace entre la chaine de caractère et le chiffre.
voilà le petit bout de code:
**************************************
#!/usr/bin/perl

use utf8;
@arbre = ( 'sApin', 'epicéa', 'chêne2','peuplier', 'hêtre', 'AB', '0', 'ابتدائ', 'ابتعاد', 'ابتكار' );
foreach $i (0..$#arbre)
{
if(@arbre[$i] =~/[0-9]/)
{
@modif = splice(@arbre, $i, 1);
}
}

print join(' ', @arbre), "\n";
****************************************

il me donne :
sApin epicéa peuplier hêtre AB بتدائ ابتع ابتكار'
par exemple le mot chene2 est supprimé alors que je voudrais supprimer que le 2
merci de m'aider.

les balises codes s'il te plait, c'est pas beau à lire.
Sinon tu t'es pris la tete à faire des foreach, voici une façon simple pour ton probleme :

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl   use utf8; @arbre = ( 'sApin', 'epicéa', 'chêne2','peuplier', 'hêtre', 'AB', '0', 'ابتدائ', 'ابتعاد', 'ابتكار' ); my $chaine = join(' ', @arbre); $chaine =~ s/\d//g; print $chaine,"\n";

---

mini optimisation: s/ / /g utilisant des regex est legerement plus lent en general que tr/ / /; (je crois)

donc on utilise

Code:

---

tr/0123456789//d;

---

au final je pense

je sais pas si

Code:

---

tr/0123456789//d;

---

et plus rapide que

Code:

---

s/\d//g;

---

je reste perplexe 8)

tr est pratiquement toujours plus rapide, car il agit au niveau du caractère, pas de l'expression régulière. (tr/0-9//d est plus court déjà)

--
Jedaï