Recherche + Modification liste

**jinjung** · 07/12/2006, 11h02

Bonjour, je suis bloqué dans mon programme par qqch que je ne parviens pas a realiser. Je souhaite modifier un seul element dans une liste mais je dois rechercher cet element dans cet liste, soit : @liste = (aaa, abz, abd, axd);
Je dois rechercher un element se terminant par bz et le modifier en bza, pour enfin recuperer ma liste modifiée, soit :
@liste = (aaa, abza, abd, axd)
Je ne parviens pas à combiner les fonctions map ou grep suivantes.

liste2 = map( { expression } liste1 );
liste2 = map( { fonction($_) } liste1 );
liste2 = grep { sélection } liste1;
liste2 = grep( /regexp/, liste1 );
liste2 = grep { fonction($_) } liste1;

Pouvez vous me donner une piste, merci

**Woufeil** · 07/12/2006, 11h24

Bonjour.

Personnelement, j'utiliserais plutôt des regexp

Code :

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

1
2
3
4
foreach my $elem (@liste)
{
	$elem =~ s/bz$/bza/g;
}

Et voilà !

**jinjung** · 07/12/2006, 14h44

Je voulais me prendre pour un caïd et faire en 1 ligne...
Cette solution me conviens et en plus je l'a comprend.

Merci pour ton aide.

**pospos** · 07/12/2006, 14h53

tu peux la faire en une ligne:

Code :

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

s/bz$/bza/ for @list

**jinjung** · 07/12/2006, 15h29

J'allais essayer ce qui suit :
my @liste1 = grep (s/bz$/bza/g, @liste1);

Mais ca c'est encore mieux, je ne pense jamais a cette syntaxe:
s/bz$/bza/ for @list

Merci pour votre aide.