Discussion :

[siham_06]

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.

[djibril]

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 :

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

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";

[tfe]

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

donc on utilise

Code :

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

 tr/0123456789//d;

au final je pense

[djibril]

je sais pas si

Code :

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

tr/0123456789//d;

et plus rapide que

Code :

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

s/\d//g;

je reste perplexe 8)

[Jedai]

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ï