Discussion :

[tiboo]

Bonjour,

je souhaite supprimer des lignes dans un tableau. Pour cela, je le parcours avec foreach et j'aimerai utiliser delete.

Code :

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

1
2
3
4
5
6
 
foreach (@fileList){
   if( $_ =~ /PATTERN/gos){
       delete $fileList[index de $_];   
   }
}

Or delete fonctionne avec un index. comment récupérer cet index? Je voudrais éviter le for et eviter de changer d'algo (style ne recopier que les lignes nécessaires dans un second tableau)

merci

[Mr6]

Salut !

C'est pour les hash ta fonction

A vu de nez je dirais que c'est ca qu'il te faut comme boucle :

Code :

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

1
2
3
4
5
6
 
my $i=0;
foreach (@fileList){
   splice (@fileList,$i,1) if /PATTERN/gos;
   $i++;
}

@+
Mr6

[tiboo]

regarde à cette adresse,

http://perldoc.perl.org/functions/delete.html

il précise qu'on peut l'utiliser pour les tableaux

delete EXPR

Given an expression that specifies a hash element, array element, \nhash slice, or array slice, deletes the specified element(s) from the hash or array.

[Mr6]

J'avais pas bien lu en effet.

Hé bien tu fais comme c'est indiqué sur la doc alors, à savoir :

Code :

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

1
2
3
4
5
 
foreach my $i (0..$#fileList){
   delete $fileList[$i] if $fileList[$i]=~/PATTERN/gos;
   $i++;
}

@+
Mr6

[tiboo]

oui tu as raison j'avais pas bien lu aussi mais je voulais éviter un index sinon j'aurai utiliser un for sans me poser de question.

Pour pousser un peu jusqu'au bout, je vais reformuler ma question :

Est-il possible d'obtenir l'index du tableau lorsqu'on effectue un parcours grâce à un foreach avec la variable spéciale $_ ?

[Mr6]

heuuufff.... jamais regardé !

[Mr6]

Allez, faisons crado :

Code :

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

1
2
3
my $list = "@fileList";
$list =~ s/PATTERN//g;
@fileList = split /\s+/,$list;

beuuuurk !

@+
Mr6

[Jedai]

Allez, faisons crado :

Code :

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

1
2
3
my $list = "@fileList";
$list =~ s/PATTERN//g;
@fileList = split /\s+/,$list;

beuuuurk !

@+
Mr6

Allez, soyons propre et utilisons une instruction vraiment faite pour ça :

Code :

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

@fileList = grep { not m/pattern/g } @fileList;

Et c'est plus court en plus !

--
Jedaï