[langage] Supprimer un élément dans une liste

**myjuna** · 09/04/2004, 12h13

Bonjour,

J'ai une liste @tab et je voudrais supprimer un élément précis de cette liste, mais qui peut être situé n'importe où dedans.
J'ai cherché et je n'ai trouvé que des fonctions qui retirent le premier élément, ou le dernier.. je ne peux pas croire qu'il n'y avait pas de fonction qui fasse ça, et qui s'écrive un truc comme

Code :

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

delete (@tab, $el)

qu'en dites vous ?
merci

**Arioch** · 09/04/2004, 12h51

A ma connaissance, il n'y a malheureusement pas de fonction capable de faire ce que tu veux, mais qu'importe, essaie celle-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub Delete_Tab
{
    my $Position = shift;
    my @OldTab = @_;
    my @NewTab;
 
    for (my $i = 0; $i < scalar(@OldTab); ++$i)
    {
        push(@NewTab, $OldTab[$i]) if ($i != $Position);
    }
 
    return @NewTab;
}

Exemple d'utilisation : tu as une liste @Liste contenant (1, 2, 3, 4, 4) et tu veux supprimer le second "4" indicé en position 4 de la liste ?

Code :

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

@Liste = Delete_Tab(4, @Liste);

@Liste devrait contenir désormais (1, 2, 3, 4).

A essayer !

**myjuna** · 09/04/2004, 15h18

Ok merci

Et pour avoir la taille d'une liste ? (le nombre d'éléments)
En fait je veux tester si la liste est vide...

**Arioch** · 09/04/2004, 15h24

Envoyé par myjuna

Ok merci

Et pour avoir la taille d'une liste ? (le nombre d'éléments)
En fait je veux tester si la liste est vide...

Code :

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

1
2
3
4
5
6
7
8
if (! @Liste)
{
    print "la liste est vide";
}
else
{
    print "la liste contient ", scalar(@Liste), " éléments";
}

**myjuna** · 09/04/2004, 15h36

Heu... ce code ne fonctionne pas chez moi!

Code :

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

1
2
unless (! @tab)
{ ... }

n'est jamais réalisé alors que ma liste est assurement vide.

et

Code :

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

print "taille : scalar(@tab)\n" ;

m'affiche :

Code :

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

taille : scalar()

???

**Arioch** · 09/04/2004, 15h42

unless (! @tab) signifie grosso modo tant que ma liste n'est pas vide, faire ce qui suit ---> est-ce bien ce que tu veux faire ?

Quant à ton 2è pb, remplace print "taille : scalar(@tab)\n" ; par print "taille : ", scalar(@tab), "\n" ;, tu verras mieux le résultat

**myjuna** · 09/04/2004, 15h48

Oui c ça, en fait je veux réaliser une action à moins que ma liste ne soit vide. or là ça ne réalise pas mon action, bien que ma liste soit vide !

:

Code :

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

1
2
3
4
unless (! @tab_UnEther)
{
   $tab_Etherchannel{$1} = \@tab_UnEther ;
}

ok pour le scalar

**myjuna** · 09/04/2004, 15h56

Envoyé par Arioch

my $Position = shift ;

à propos que fait "SHIFT" ?

**Cyspak** · 09/04/2004, 16h13

Envoyé par myjuna

à propos que fait "SHIFT" ?

Ca sert à prendre le premier paramètre que tu as passé à ta fonction.
SHIFT enlève en fait le 1er élément du tableau @_.

Code :

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

1
2
3
4
5
6
7
fonction($param1,$param2,$param3);
 
sub fonction{
            my param1 = shift;
            my param2 = shift;
            my param3 = shift;
}

L'autre manière de faire est de récupérer tes paramètres à partir de la variable $_[x].

**myjuna** · 09/04/2004, 16h27

Ok ça marche en fait, le pb venait d'ailleurs

Merci à tous les 2 pour vos explications!

**Jedai** · 10/04/2004, 14h35

Euhh, on peut faire ça en une seule opération, vous savez.... Ca s'appelle un slice ou une "tranche" en français. Ca permet de faire un tableau qui ne contient qu'une partie des éléments d'un autre tableau, par exemple pour supprimer un élément d'un tableau disons @tableau, et l'élément d'indice $i :

Code :

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

1
2
 
@tableau = @tableau[0..($i-1),($i+1)..$#tableau];

Marche pour tout indice (y compris le début et la fin du tableau).

Evidemment l'outil "slice" est beaucoup plus puissant et peut servir à beaucoup d'autres choses. (Pauvre Perl s'il était incapable de faire un truc aussi simple...)
--
Jedaï

**severine** · 14/04/2004, 15h43

Ca marche super bien!
merci!!

Severine

**Jedai** · 04/08/2014, 22h18

Quelqu'un a apparemment retrouvé cette discussion récemment et m'as posé une question par PM. J'en profite donc pour signaler que la solution standard pour éliminer un élément à l'indice $i d'un tableau Perl est plus probablement :

Code :

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